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TECHNICAL  REPORT  SUMMARY 


Program  Objectives 

The  objective  of  this  research  program  was  development  of  finite  element 
procedures  to  predict  stresses,  deformations  and  progressive  failure  of  rock  associ¬ 
ated  with  underground  excavations.  For  applicability  to  arbitrary  sequence  of  exca¬ 
vation  operations,  it  was  necessary'  that  the  procedures  developed  allow  for  arbitrary 
initial  stresses  in  rock,  arbitrary  size  and  shape  cf  the  opening  and  progressive  fail¬ 
ure.  Plane  strain  conditions  and  two  different  types  of  material  behavior  were  con¬ 
sidered.  Rock  was  treated  as  an  isotropic  elastic-plastic  generalized  Mohr-Coulomb 
material  in  one  model  and  as  an  elastic-brittle  material  following  Grifilih  theory  of 
fracture  in  the  other. 

Background 

In  previous  applications  of  the  finite  element  method  to  rock  mechanics,  elastic- 
plastic  behavior  of  rock  has  been  modeled  as  nonlinear  elastic  for  computational  con¬ 
venience.  Further,  it  was  assumed  that  the  results  of  a  one-dimensional  test  could 
be  generalized  to  three-dimensional  analysis  through  the  use  of  an  equivalent  stress- 
equivalent  strain  curve.  In  some  applications,  two  stress  or  strain  parameters  were 
used.  These  procedures  are  unsatisfactory.  Assumption  of  isotropic  elasticity  assumes 
that  the  principal  directions  of  stress  and  strain  coincide.  In  plasticity  this  is  not  tru 
Also,  rock  behavior  is  characterized  by  a  significant  part  cf  deformation  being  irre¬ 
versible.  For  this  reason,  the  mechanical  behavior  in  unloading  is  different  from  that 
in  loading.  For  rock  with  preexisting  joints  or  developing  tensile  cracks,  a  ’no  tension* 


ii 


■  •  : '  pf,‘*  -'^’  *>' 


WPS*  ^,f|^'4^ .  '^i'W 

■-*  ’  . r  ' 


procedure  is  often  adopted.  In  this  method,  a  linear  elastic  solution  is  obtained  and 
all  tensile  stress  redistributed  simultaneously.  Actually,  as  cracking  progresses, 

>t 

the  rock  on  either  side  of  the  crack  is  relieved  of  stress  and  a  stress  concentration 


develops  near  the  crack  tip.  Conventional  procedures  ignore  these  effects  and  the 
progressive  nature  of  crack  development,  leading  to  erroneous  conclusions  regarding 
stresses  around  underground  openings. 

Accomplishments  Under  the  Present  Program 

The  research  conducted  under  this  contract  has  resulted  in  development  of 
computer  programs  based  on  more  realistic  simulation  of  material  behavior.  The 
Incremental  theory  of  plastic  i’y  has  been  used  to  characterize  the  stress-strain  be¬ 
havior  of  elastic-plastic  rock.  Role  of  kinematic  constraint  of  plane  strain  in  develop¬ 
ment  of  residual  stresses  in  rock  has  been  examined  on  the  basis  of  Hill's  theoi-y. 

New  techniques  have  been  developed  for  study  of  initiation  and  propagation  of  fracture 
in  rock  following  Griffith's  theory  or  the  modified  Griffith  theory.  Allowing  for  sequen¬ 
tial  fracture  of  various  elements  in  a  system,  the  effect  of  progressive  stress  redis¬ 
tribution  in  the  remaining  system  is  correctly  incorporated.  Arbitrary  initial  stress 
states,  arbitrary  sequence  of  excavation  {or  construction),  arbitrary  size  and  shape 
of  opening,  and  nonhomogeneous  material  properties  were  allowed  for.  The  actual 
construction  operations  can  be  simulated.  The  procedures  developed  were  applied  to 
several  typical  problems  in  rock  mechanics  as  well  as  to  some  theoretical  and  labora¬ 
tory  studies  for  the  purpose  of  verification  and  illustration.  These  were  used  to  carry 
out  parametric  studies  to  examine  the  influence  of  rock  properties  upon  the  stresses 
in  steel  supports  in  a  tunnel. 
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POD  Implications 


The  procedures  developed  provide  useful  means  for  study  of  stability  of  under¬ 
ground  excavations  based  on  stresses  and  deformations  associated  with  the  mining 
operations,  structural  support  evaluation,  safety  analyses  of  openings,  study  of 
blasting  effectiveness  under  certain  conditions,  evaluation  of  mining  sequences,  study 
of  vulnerability  and  serviceability  of  underground  structures  etc. 

Organization  of  the  Report 

This  report  is  in  three  parts  as  follows: 

Volume  1  -  Main  Document 

Volume  2  -  Computer  Program  User's  Manual 

Volume  3  -  Computer  Programs 

Volume  1  contains  the  main  body  of  the  report  including  the  theoretical  development,  pro¬ 
gram  verification  and  case  studies.  Chapter  I  reviews  previous  efforts  in  the  general 
research  area  and  describes  the  objectives  and  methods  of  the  present  research  in  the 
historical  context.  Chapter  II  describes  the  mechanical  behavior  of  rock  and  the  ideali¬ 
zations  used  in  the  research  under  report.  The  basis  and  methods  of  the  finite  element 
theory  are  briefly  discussed  in  Chapter  III  leading  to  the  formulation  of  matix  equations. 
Chapter  IV  gives  details  of  the  analysis  technique  for  isotropic  elastic-plastic  generalized 
Mohr-Coulomb  rock  materials  and  Chapter  V  gives  the  numerical  analysis  procedure  for 
jointed  rock  and  rock  subjected  to  progressive  fracture  following  Griffith  or  modified 
Griffith  theory.  Examples  of  application  are  included  in  Chapters  IV  and  V.  Chapter  VI 
presents  application  of  the  elastic-plastic  analysis  computer  program  to  a  paramedic 
study  to  evaluate  the  influence  of  rock  properties  on  stresses  in  steel  supports  for  specified 
initial  stresses  and  design  of  the  opening. 


In  the  original  proposal,  model  testing  to  verify  some  aspects  of  rock  behavior 


under  plane  strain  conditions  was  foreseen.  The  effort  under  the  present  contract 


covered  procurement  of  suitable  plane  strain  test  equipment  and  design  of  suitable 


test  material.  Appendix  B  includes  a  report  on  this  effort 


Volume  2  of  the  report  contains  description  of  the  three  computer  programs 


developed  under  the  contract  along  with  fortran  listings  and  instructions  for  input  pre^ 


paration.  The  input  definition  and  the  listings  are  for  the  IBM  370/185  version 


The  programs  are  the  primary  content  of  volume  3.  These  are  available  on 


magnetic  tape  from  DDC-TC,  U.S.  Department  of  Commerce,  Springfield,  Virginia 


2151,  telephone  (703)  321-8517 
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CHAPTER  I:  NOTENS —  A  Computer  Program  for  Analysis 
of  Roek  as  a  No-Tension  Material 


1.1.  Purpose  and  Capability 

This  computer  program  is  based  on  a  modification  of  Zienkiewiez's  approach 
(Zienkiewiez  et.al,  1968).  A  linear  elastic  analysis  of  a  given  two-dimensional  system 
is  earried  out  to  determine  the  regions  of  tensile  stress.  The  tensions,  wherever  they 
occur,  are  replaced  by  equivalent  nodal  point  loads  and  the  tensile  stresses  in  the  corre¬ 
sponding  elements  are  neutralized.  For  these  equivalent  loads,  the  elastie  analysis  is 
repeated.  This  iterative  process  is  continued  until  all  tensile  stresses  are  liquidated. 
The  modification  to  the  original  approach  is  diseussed  in  Part  I:  Technical  Report. 

The  program  allows  for  an  arbitrary  initial  stress  field,  gravity  loads,  concen¬ 
trated  loads,  distributed  loads  applied  to  the  boundary,  temperature  loads  and  tempera- 
bare  dependent  material  properties. 

1.2.  Organization 

The  program  is  in  Fortran  language.  Scrateh  tapes  arc  1  and  2.  Tapes  5  and  6 
are  used  for  input/output  respectively.  The  listing  in  section  1.6  used  double  precision 
for  real  numbers.  The  program  capacity  ean  be  altered  by  changing  the  dimension  of 
arrays  AA  and  IA.  These  correspond  to  the  total  locations  required  in  real  arrays  and 
integer  arrays  respectively.  NTOT,  MTOT  at  lines  MAIN  23,  MAiN  24  are  set  equal  to 
the  dimension  of  AA,  IA  respectively. 

The  program  consists  of  the  following  units: 
a.  Program  MAIN 

In  this  unit,  the  eontrol  information  is  read  in  and  the  location  of  various 

dimensioned  variables  defined  in  the  system  arrays  AA  and  IA. 
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I).  Subroutine  INPT 


This  subroutine  is  called  by  the  M  A  IN.  In  this,  information  regarding 
material  properties;  nodal  point  coordinates,  loads,  temperatures,  boundary  condi¬ 
tions;  element  geometry,  trial  and  initial  stresses  is  read  in.  Missing  information 
if  generated.  Information  regarding  boundary  pressure  is  read  in.  Dimensions  or  the 
matrix  for  solution  of  stiffness  equations  are  defined  and  subroutine  SOLVE  is  called 
to  complete  the  solution  proeess. 

c.  Subroutine  SOLVE 

Called  by  INPT  after  reading  in  all  data,  this  subroutine  sets  up  the  system 
stiffness  matrix  in  blocks.  It  ealls  subroutines  ONED  and  ELEMEN  to  obtain  stiff¬ 
ness  properties  for  one-dimensional  and  two-dimensional  elements  respectively.  The 
stiffness  is  assembled  by  the  direet  stiffness  procedure  and  modified  for  specified  bound¬ 
ary  displacements.  The  matrix  is  tri regularized  by  ealling  SYMBAN  (1).  Subroutine 
LOAD  is  called  to  recover  the  system  load  veetor.  Reduction  of  the  load  vector  and 
baek-substitution  are  accomplished  by  calling  SYMBAN  (2).  The  cumulative  as  well 
as  the  incremental  displacements  are  pointed  out.  Subroutine  STRESS  is  called  for 
evaluation  and  print  out  of  stresses.  Because  the  solution  is  obtained  by  elimination 
of  tension  in  an  iterative  sequence,  the  steps  from  calling  LOAD  to  calculation  of  stress 
are  repeated  a  preset  number  of  times  or  until  convergence  is  obtained. 

d.  Subroutine  ONED 

Called  by  SOLVE,  this  subroutine  sets  up  the  stiffness  matrix  for  a  one¬ 
dimensional  element. 
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e.  Subroutine  ELEMEN 


Called  by  SOLVE,  this  subroutine  ealeulates  the  stiffness  matrix  for  two- 
dimensional  elements.  These  maybe  triangular  elements  or  quadrilaterals  made 
up  of  four  constant  strain  triangles.  If  other  types  of  quadrilateral  elements  are 
to  be  used,  th  i  s  subroutine  has  to  be  replaced.  Linear  isotropie  elasticity 
is  assumed.  Loads  due  to  initial  stresses  or  temperature  ehanges  from  a  refer¬ 
ence  temperature,  and  gravity  loads  are  calculated  in  this  subroutine. 

f.  Subroutine  MODIFY 

Called  by  SOLVE,  this  subroutine  modifies  the  system  stiffness  matrix  to 
allow  for  prescribed  displacement  boundary  conditions. 

g.  Subroutine  SYMBAN 

This  subroutine  is  ealled  by  SOLVE.  Called  with  augment  1,  it  triangular¬ 
ises  the  stiffness  matrix  and  ealled  with  augment  2,  it  backsubstitutes  to  evaluate 
the  solution  for  displacements  for  a  given  load  vector. 

h.  Subroutine  LOAD 

This  subroutine  ealled  by  SOLVE,  sets  up  the  system  load  vector  ineluding 
nodal  point  loads,  distributed  boundary  pressure  loads,  as  well  as  unbalanced  ele¬ 
ment  loads,  initial  stresses,  temperature  stresses  and  gravity  loads, 
j.  Subroutine  STRESS 

Stresses  in  x-y  coordinate  system  as  well  as  principal  stresses  are  calcu¬ 
lated  in  the  STRESS  subroutine  called  by  SOLVE.  The  stresses  are  eheeked  for 
tension,  and  if  necessary,  the  tensions  are  replaced  by  equivalent  unbalanced  stresses 


to  be  transformed  into  load  in  the  next  cycle,  A  check  on  convergence  of  the  iterative 
scheme  ir  applied  and  the  maximum  unbalanced  stress  in  any  element  is  printed  out. 
1.3.  Input  Data 


Input  to  the  program  NOTENS  consists  of  the  following  sequence  of  cards. 

a.  First  Card.  Job  Title  (18A4) . 

This  card  gives  the  descriptive  identification  of  the  job. 

b.  Second  Card.  Control  Information  (415,  3F10.2,  15,  D15.4) 

Information  Columns 

Total  number  of  nodal  points  (NUMNP)  1_5 

Total  number  of  elements  (NUMEL)  6-10 

Number  of  different  materials  (NUMMAT)  11-15 

Number  of  pressure  boundary  cards  (NUMPL)  16-20 

Acceleration  in  x-direction  (ACELR)  21-30 

Acceleration  in  y-direction  (ACELZ)  31-40 

Reference  (stress-free)  temperature  (Q)  41-50 

Maximum  number  of  approximations  or  iterations  allowed  (NP)  51-55 

Tolerance  for  convergence  of  iterations  (TOL)  56-70 

c.  Material  Property  Cards 

One  set  of  cards  must  be  provided  for  each  material.  In  each  set: 
i.  First  card  (215,  1F10.3,  15)  gives  the  following  information: 

Material  identification  number  (1  ^  MTYPE^  10)  1-5 

Numbei  of  temperature  cards  (NTC)  6-10 
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Mass  density  of  t!  e  material  (RO) 


11-20 


Material  code  (MTC):  i  for  no-tension  material  21-25 

0  otherwise 

ii.  Subsequent  cards,  one  for  each  temperature,  the  number  of  data  sets 
defined  in  'oluivms  6-10  of  the  first  card  for  the  material,  will  carry  the 


the  following  information  (4F10.3): 

Information  Columns 

Temperature  1-10 

Elastic  Modulus  11-20 

Poisson's  ratio  21-30 

Coefficient  of  thermal  expansion  (or  eross-seetional  area  of  31-40 


1-D  element) 

d.  Nodal  Point  Cards  (15,  F5.1,  5F10.4) 


Nodal  point  number  (N) 

1-5 

Code  of  nodal  point  (CODE) 

6-i0 

X-ordinate  (R) 

11-20 

Y-ordinate  (Z) 

21-30 

UR 

31-40 

UZ 

41-50 

Temperature  (T) 

51-60 

Tf  the  number  in  columns  6-10  is 

0.  UR  is  the  specified  X-load  and  UZ  is  the  specified  Y-load 

1.  UR  is  the  specified  X-displacement  and  UZ  is  the  specified  Y-load 

2.  UR  is  the  specified  X-load  and  UZ  is  the  specified  Y-displaeement 

3.  UR  is  the  specified  X-displaccmcnt  and  UZ  is  the  specified  Y-displaeement 
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All  loads  are  considered  to  be  total  forces  acting  on  an  element  of  unit  thick¬ 
ness.  Nodal  point  cards  must  be  in  numerical  sequence.  If  cards  arc  omitted,  the 
omitted  nodal  points  are  generated  at  equal  intervals  along  a  straight  line  between 
the  defined  nodal  points.  Similarly,  the  corresponding  temperatures  are  determined 
by  linear  interpolation.  The  codes  (CODE)  of  these  generated  nodal  points,  as  well  as 
UR  and  UZ,  arc  set  equal  to  0. 
e.  Element  cards 

i.  Material  type  information  of  elements  (1615) 

Every  5  columns  of  each  data  card  give  the  material  identification  number 
of  each  clement  in  sequence.  Each  card  contains  16  material  identification 
numbers  (80  columns  of  16  elements). 

ii.  Nodal  points  and  initial  stresses  (515,  5X,  3F10.0).  One  card  for  each  element. 


Information 

Columns 

Number  of  the  element 

1-5 

Nodal  point  I 

6-10 

Nodal  point  J 

11-15 

Nodal  point  K 

16-20 

Nodal  point  L 

21-25 

Initial  oxx 

31-40 

Initial  <j\yy 

41-50 

Initial  <xXy 

51-60 

Nodal  points  I,  J,  K,  L  are  corners  of  each  individual  clement  in  a  counter¬ 
clockwise  order  for  a  right-handed  system  of  co-ordinates.  For  1-D  elements, 
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nodal  points  K  and  L  are  set  same  as  J  and  I  respectively.  In  the  case  of 
triangular  elements,  L  is  set  to  be  same  as  K.  The  element  cards  must  be 
in  numerical  sequence.  Any  element  cards  omitted  will  be  automatically 
generated  in  the  program  by  incrementing  each  of  the  I,  J,  K  and  I,  nodal 
points  by  1.  The  corresponding  initial  stresses  of  the  generated  elements 
are  calculated  by  the  program  using  linear  interpolation.  Such  interpolation 
is  done  basing  upon  element  number  rather  than  distance, 
f.  Pressure  Boundary  cards  (215,  2F10.3) 

One  card  for  each  boundary  element,  which  is  subjected  to  a  normal  pressure, 
will  carry  the  following  information: 

Information  Columns 


Nodal  point  I  (IBC) 

Nodal  point  J  (JBC) 
Normal  pressure  at  I  (PR) 
Normal  pressure  at  J  (PR) 


1-5 

6-10 

11-20 

21-30 


As  shown  in  the  sketch,  the  boundary  element  must  be  on  the  left  as  one  pro¬ 
gresses  counter-clockwise  from  I  to  J.  Surface  tensile  force  is  input  as  a  negative 


pressure. 


..  . . . . . - - 


1.4.  Output  Data 


The  following  information  is  developed  and  printed  by  the  program: 
a.  Printing  of  input  (and  generated  )data 

1).  Incremental  and  cumulative  nodal  displacements  of  each  iteration 

c.  Stresses  at  center  of  each  element  and  the  unbalanced  force  of  the 
elements  during  each  iteration 

d.  Maximum  unbalanced  force  of  the  elements  for  the  iteration 

e.  In  the  ease  where  maximum  unbalanced  force  is  less  than  the  set 
tolerance  (TOL),  convergence  is  noted  and  the  number  of  cycles 
to  reach  this  is  printed. 

1.5.  Limitations 

Limitations  of  the  approach  are  discussed  in  detail  in  Part  I- Technical  Report. 
In  this  approach  it  is  assumed  that  all  the  .dements  having  tensile  stress  crack  and 
ar  relieved  of  tension  simultaneously.  This  is  unrealistic.  Actually  the  process  of 
cracking  will  be  sequential  with  cracking  of  each  element  influencing  the  stress  dis¬ 
tribution  and  consequently  the  continuation  of  the  cracking  sequence.  The  program 
included  here  eliminates  some  of  the  procedural  errors  of  earlier  attempts.  However, 
it  cannot  preoict  sequential  or  progressive  development  of  cracks.  Also  convergence 
is  often  very  slow  and  the  advantage  of  using  the  same  system  stiffness  matrix  through¬ 
out  the  iterative  computation  is  lost  because  of  the  large  number  of  iterations  required. 
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1.6.  Fortran  UeUog 


! 


MAIN 

1  ( 

MAIN 

7  C 

MAIN 

3  C 

MAIN 

4  C 

MAIN 

5  c 

MAIN 

t  c 

MAIN 

7  C 

MAIN 

8  C 

MAIN 

V  C 

MAIN 

10  ( 

MAIN 

11  c 

MAIN 

12  C 

MAIN 

13  C 

MAIN 

14 

MAIN 

15 

MAIN 

16 

MAIN 

17 

MAIN 

lb 

MAIN 

19 

MAIN 

20 

MAIN 

21 

MAIN 

/ 

MAIN 

23 

MAIN 

24 

MAIN 

25 

MAIN 

26 

MAIN 

27 

MAIN 

2  b 

MAIN 

29 

MAIN 

30 

MAIN 

21 

MAIN 

32 

MAIN 

33 

MAIN 

34 

main 

J5 

Mm  IN 

36 

MAIN 

37 

MAIN 

3H 

MAIN 

29 

MAIN 

40 

MAIN 

41 

MAIN 

42 

MAIN 

43 

MAIN 

44 

MAIN 

45 

MAIN 

46 

MAIN 

4  7 

MAIN 

48 

MAIN 

49 

MAIN 

50 

*********  ******  •********.***************************************>< 

PROGRAM  NUTtNS 

Nil  It  NS  1 CJN  ANALYSIS  POP.  P  LANP  STRPSS  AND  PI  ANf  31RA1N. 

L  INI  AR  PkkSSUtF  bUUNDAR Y 

PROGRAMMED  GY  K.S. SANDHI),  R.D. SINGH  AND  li.LlU.  Tut  CHIU  SIAlt 
UN  I VfcRS 1TY ,  COLUMbUS. 

THE  FORMULATION  IS  DOCUMENTED  IN  THc  PINmL  REPORT  DATPD  MARCH  3  1  , 
1973,  ON  CONTRACT  HG2  1  Of  1  7  LF-TWEEN  I  hi.  UHlU  STAIR  UNlVlr'SllY  AND 
T lit  UNITtU  SIAltS  nOREAl.  UP  MINIS  SUPPUKUD  ti Y  TUP  ADVANCFD 
KtSlARCH  PRUJiLTS  AGFNCY.  INSTRUCTIONS  PUR  USF  UF  Till  PROGRAM 
ART  CUNTA1NLD  IN  PART  II  Uf  T HP  RPPURT. 
***************,*•***»******** ***************  ******************** 

IMPLICIT  RFAL’I-P  ( A-H ,C-2  I 
CUMMUN  AA  S 10000  J , 1 A  < 1 bOl  ) 

CUMMUN/ONP/ACFLK,ACf  LZ.lt MP,.,,  TliL.VUL, NUMNP.NIJMEL, NUMMAT  , HUMP L, 
♦MTYPt.LLL.N.MbANO  .NUMHLK  ,hKK,NCHECK,NP,ML,NfO,HI'n(lP)  ,NPC 
COMMUN/THO/C I 3,3)  ,S lit , 10 1 , S 1 G IP  I , Pit  I , ST ( 3 , 1 0 1 , RR I  5 1 , ZZ I 6 I , XC , YC , 
*H I 3) ,LM(4) ,t IS, 4, 10) .RC(IO) .NTCI10I .MTCI10I 
CUMMON/THRFE/M I LT,N1LI,N11,M4,S10P 

REAL!  5,1000)  HL  U » NUMNP  »  NUME  L  ,  NUMMAT , NUMPC »  AC t IP , ACF LZ ,Q ,NP , T CL 
WRITE ( 6, 2000) HtO, NUMNP, NUMtL.NUMMAl .NUMPC, *C I LK ,ACF L 7 , C , NP , T! L 
NiriToXOOOO 
M TC  T* 15G0 
NPC=NUMPC 

IF  (NUMPC. fCI.U)NPC*l 
Nl  =  1 

N2=N1*NUMNP 

N3  =  N2  +  NUMNP 

N4=N3+NUMNP 

NssNa+NUMNP 

N6=  NStNUMNP 

N7*N6+2*NPC 

N8=N7*6*NUMLL 

NV*NB*NUMNP 

N1C=N9*2*NUMNP 

N1 1=N10*2*NUMNP 

MI  c  1 

M2-M1 +5*NUMl L 

MJ=M2+NPC 

MA*M3+NPC 

NI.W‘2*NUMNP 

JJ=M4-MT0T 

1PIJJ.LE.0IGi  TO  100 
WR 1 1 1 ( 6 ,3000 1 JJ 
CALL  EXIT 
100  CONTINUE 

CALL  INPT 1  A  A  (  Ml ) , A A  IN* I ,AAIN3)  ,AA (N4|  ,AA(N5 I ,AA(NM  ,AA(N7)  , 

♦AAIN0) ,AA(N9I .AAINIOI , I AIMl I , 1AIMZI , 1A (M3I) 

1000  PDKMA  T 1 1 8A4/4 1 5,3F1C.2»  15,015.4) 


| 

I 
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main  51  2uoo  format  urn  iba4/ 

MAIN  52  1  30H0  NUMBER  OF  NODAL  POINTS - 13  / 

MAIN  03  2  3OH0  NUMBER  UF  ELEMENTS - - - 13  / 

MAIN  04  3  30H0  NUMbER  OF  OIFF.  MATERIALS -  13  / 

MAIN  55  4  30H0  NUMBER  CJF  PRESSURE  CARDS -  13  / 

MAIN  56  5  3OH0  X-ACCELERAT ION - - - F12.4/ 

MAIN  57  6  3uHC  Y-ACCELtRATIGN - £12.4/ 

MAIN  58  7  30H0  REFERENCE  TEMPERATURE -  F12.4/ 

MAIN  54  8  3 OHO  NO.  OF  APPROXIMATIONS - 15/ 

MAIN  60  4  30H0  TOLERANCE  FOR  CONVERGENCE -  E12.4) 

MAIN  61  3000  FORMAT  (70H  PROGRAM  EXECUTION  TERMINATED.  RE0U1RED  CORE  EXCEFDS  NT 

MAIN  62  *0T  BY  1 1 C ) 

MAIN  63  END 
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•••'  . . 'FWT'* T-  ~>rr 


. :  ™ 


o 


1NPT 
INPT 
1NPT 
INPT 
INPT 
1NPI 
INPT 
INPT 
INPT 
INPT  10 
INPT  11 
INPT  12 
INPT  13 
INPI  14 
INPT  15 
INPT  16 
INPT  17 
INPI  18 
INPT  19 
INPI 
INPT  21 
INPT  22 
INPT  23 
INPT  2t 
INPT  25 
INPT  26 
INPI  27 
INPI  28 
INPI  29 
INPT  30 
INPI  31 
INPT  32 
INPT  33 
INPT  34 
INPI  35 
INPT  J6 
INPT  37 
INPT  36 
INPT  39 
INPI  40 
INPI  9l 
INPI  42 
INPT  43 
INPT  44 
INPT  45 
INPI  46 
INPT  47 
INPT  48 
INPT  49 
INPT  30 


SUTIKUU  T1NF  IN;M(R,Z,UH,UZ,T,PR,S1&1,CUDE,P,,CU,1X,I0C,JPLI 
IMPLICIT  REAL*6(A-H,G-Z  ) 

COMMON  AA( 10000 ),1A(15GC) 

COMMON /UNE/ AC  HP  ,  ACT  L2, 1 1.  MP ,  Q  ,  TUL ,  VUL ,  NUMNP  , NIIMF L  ,NUMMA  T  ,NlIMPC, 
*MTYP£|LLI.  ,N,MhANU,NUMBLK,KKK,NCHECK,NP,NL,NEtl,HF(l(18)  ,NPC 
CnMM0N/TWn/C(3,3)  .SI  10, 1C ) ,  SIGI6) ,P( 6) ,51 (3,10) ,KR< 5) ,77(6) , XC , Y(  , 
*PF  (  3)  ,LM(  41 ,(:  (5,4,  10)  ,RG(  10)  ,NTC(  1G)  ,MTC(  10) 

COMMON/ THRE P/MTUT, N TOT, N11.M4, SI  OP 

DIMENSION  R( NUMNP ) , Z I NUMNP ), UR ( NUMNP ) ,UZ (NUMNP) , T (NUMNP) ,PP (NPC ,2) 
*,  S  IG 1  ( NUMt-L  ,6 )  ,  CUOE  (NUMNP)  ,  !X  (  NUME  L,  5)  ,  IlC(  NPC  )  ,  JBC  (NPi  ) 

DIMENSION  B(NPC),CU(NEL) 

DU  50  M=1 .NUMMAT 

READ  (3,1001)  MTYPI  ,NTC(M1YPE ) ,RU(MTYPH  ,MTC(MTYPE) 

WRITE  (6, 2001)  MIYPE,NTC(MIYPF)  ,1,0  (MTYPI  )  ,MTC(MTYPP) 

NUM  TC=NTC  ( MI  YPt  ) 

READ  (.>,1002)  (  (I  (  1  ,J,M1YPL)  ,  J  -  1 , 4 )  ,  1  =  1  ,NUM  TC ) 

WK11F  (6,2002)  ( ( T (  1,J,M1YPL), J  =  l, 9), 1  =  1, NUMTL) 

30  C UN T 1 NU( 

WRITE  (6,200 3  I 
L  =  0 

60  RfAD  (  5 ,  loO.T )  N,Ci:T>l  ( N )  ,  M  N )  ,  Z  ( N )  ,IIK  ( N )  ,112  ( N ) ,  H  N) 

NL-L+ 1 

IF (N. EL. I  I  GU  IL  70 


70 


ZX-N-L 

DR=(R(N)-R(L) )/ZX 
DZ=(Z(N)-Z(L) )/2X 
DT=(T(N)-T(L) 1/2X 
L^L  +  l 
lF(N-L)  100  »5i>,  bO 
80  COPF ( L) =0 .0 
K(L)=K(L-l)+0k 
7( L ) =Z ( L- 1 ) +07 
T ( L )=T ( L-l ) +0 1 
UR ( L ) =0.0 
UZ ( L ) =0 .0 
OU  TU  70 
90  CONTINUE 

IF(NUMNP-N)  IOC, 110, 60 
100  WRITE  (6,2003)  N 
CALL  t X I  1 

110  WR  I  ri  (6,2  004  )  (  (  k,  LUOt.  ( K  ) , k  ( K )  ,  Z ( K )  , UK  (K  I  ,LZ  (K  ) ,  I  ( K )  )  , K  =  1 , NUMNP  ) 
RLAD(3,1007)  ( 1X(N,3),N=1,NUMEL) 

WRITE  ( 6 , 2CC6 ) 

N  =  0 

130  RL AO  (3,1003)  M,(1X(M, 11,1  =  1,4)  , ( S I  0 1 ( M , I )  , I =1 , 3 ) 

IP(M.ft.l)  00  TO  140 
ZX=M-N 

DU  135  1-1,3 

135  SlL(l)  -(Sl(.l(M,I)-Sl(.I(N,n  )  / 

140  N=N+1 


ZX 
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INK  51  lF(M.LE.N)GG  l(J  1Y0 

1NPT  5*.  1 X  ( N ,  1  )  =  I X  ( N-l  *11  +  1 

INK  03  IX{N,2)=IX!N-l,z)+l 

INPT  54  1X(N,3)=1X(N-I,j)+1 

INPT  55  1X(N,4)=IX(N-1,4)+1 

INPT  56  nt)  160  1  =  1,3 

INPT  57  160  SIG1(N«1)=S1GI(N-1,1)+SIG(1) 

INPT  58  HO  1FIM.GT.N)  GO  TO  14C 

1NPI  5V  1HN.LT. NUMtLlGU  T0130 

1NPT  60  WRITE (6,2007)! (N, ( 1X(N, 1 1 ,1  =  1,5) , ( S1G1 IN,  1) ,  1=1,3) ) ,N=1,NUMEL) 

1NPT  61  IHNUMPC.EL'.O)  GO  TO  310 

1NPT  62  290  WP1TE  <6,20C8‘ 

1NPT  63  DU  300  L=1 »NUMPC 

1NPT  64  RE AD! 5 , 1005  I  1BC( L) ,JBC ( L 1 ,PR ( L, 1 ) ,PR( L,2 ) 

1NPT  65  300  WR  1  Tt  (  6 , 2009 )  1 BC ( L ) , JBC!  L ) ,  PR ( L , 1 > , PR! L, 2) 

1NPT  66  310  CONTINUE 

1NPT  67  J=0 

1NPT  68  DO  340  N= 1 , NUMEL 

1NPT  69  DO  340  1=1,4 

1NPT  7u  DC)  32  5  1  =  1,4 

1NPT  71  KK  =  1 A B S (  1X(N, 1 ) -1 X  I N , L )  ) 

INPT  72  IF(KK.GT.J)  J=KK 

IMP T  73  325  CONTINUE 

INPT  74  340  CONTINUE 

INPT  75  M5AND=2*J*2 

INPT  76  WRlTE(6,3C0G)MbAND 

INPT  77  NL  =  ( N TOT— N 1 1  + 1 1  /MBAND 

INPT  78  NLL=NF0»3 

INPT  79  IF! NL.GT.NL LI  NL=NLL 

INPT  80  NL=NL/4 

INPT  HI  NL=4*NL 

INPT  62  N BAND= 24Mb A NO 

INPT  b3  IFINL.GE.NBANDJGO  TO  350 

INPT  84  HR1TF  ( 6 , 4010 ) NL, MBAND 

INPT  85  CALL  EXIT 

INPT  86  350  CONTINUF 

INPT  87  N 1 2=N 1 1 +NL+MU AND 

INPT  08  JJ  =  N12-N  TUT 

INPT  89  IF! JJ.LE.OIGO  TO  360 

INPT  90  WRITE(6,3050)JJ 

INPT  91  CALL  EXIT 

INPT  92  3oO  CONTINUE 

INPT  93  WK 1 TE ( 6 , 4000 ) N1 2, M4 

1NPT  C-ALL  SDLVE(R,Z,UR,U2,T,PR,S1G1,C0DF,B,CU,AA(N1J  ) ,  1  X , 

INPT  95  *10C ,JBC1 

INPT  96  RETURN 

INPT  97  1001  FORMAT  (218,1810.3,15) 

INPT  98  1002  FORMAT  UFIO.j) 

INPT  99  1003  FORMAT  (  1 5, F5 . 1 ,5F 10.4 ) 

INPTlOO  1004  FORMAT ( 5 1 5 , 5X ,3F 1 0. 0) 


MMSMiSS*4 MnwaMManunuai  aamn 


INPT101 

1 NP 1102 

1NPT103 

INPT104 

1NPT105 

1NPT106 

INPT107 

INPT10B 

1NP1 109 

1NPT110 

1NPT111 

1NPU12 

INPTX 13 

INPT114 

1NPT115 

1NPT116 

INPT117 

1NPT118 

INPT119 

INPT120 

INPT121 

INPT122 

INPT1 23 

INPT124 

INPT125 


MA IIP 1AL 


100b  FC.KMAr<2l‘',2Plo.b) 

1007  FORMAT (16131  „  ,  ,  r  . , „ 

2001  FORMAT  ( 17H0MA 1 EP  1 AL  NUMl>R  =  13,  30H,  NUMEER  01  T  f:MPt°  ATURt  OAR 
1  13,  1 5H ,  MASS  DENS  ITY=  F12.4,16H,  MATERIAL  LUDE  =  lb) 

2002  FORMAT  (15HC  TEMPERAlUtU  10X  5HL  9X  (jHNU  10X  5HALPH// 

2003  FUKMAT  (lOtiHINODAL  POINT  TYPt  X  li«D  1  MAT  1  Y  ORDlNAli  X 

1AD  OR  DISPLAOlMENT  Y  LUAO  OR  DISPLACEMENT  TEMPERATUkt  1 

2004  FORMAT  ( 1 12  »F  12  .2 , c  FX2  , !>  1 2t  24 . 7  ,F  12 . 3 1 

2003  FORMAT  (26H0NDDAL  POINT  CART)  ERROR  N=  li>l 
2u0o  FORMA  TtlOflllltLEMENT  NO.  1  J  K 

1S1G1XX  S 101 YY  SloIXY 

2007  FORMAT  ( 1 1 13,*»  16, 1 1  12,3Fi:  .3  1 

2008  FORMAT  (29H0PRI  SSUKt  t.OONDAPY  CONO  1 T  1 0NS/40H 
IE  1  PRESSURE  J) 

2009  FORMAT(216,2El4.3) 

3000  FORMAT  ( 30H  BAND  WIDTH -  - 

3050  FORMAT  ( 70H  PROGRAM  tXECUllti,  TERMINATED. 

+0T  hY 

4000  FORMAT  (47h  FOR  THIS  PROGRAM  THE  LOCATION  USED  IN  AA  IS  = 

♦17H  AND  IN  IA  IS  =  15) 

4010  FORMAT  (2SHU  NL  IS  LESS  THAN  2*Mb AND 
*5HG  NL= 

+8H0  M&AND* 


LI 


1 


) 

PRC  SSOi' 


REQUIRED  COR  I  1  XCl  T-f'S 

1 

13 


13) 
M 
H  ) 

* 

/ 

i‘  / 

1  ) 


SULV 

1 

SUBR0U11NE  SOLVE ( R , 2 , UR ,UZ, T ,RR  ,  S 1G1 .CODE ,b, CU, A, IX , IBC, JEC > 

SCjLV 

2 

IMPLICIT  HfcAL*B< A-H,0-Z) 

SOLV 

3 

COMMON  AA(IOOOO) , 1 A ( 15001 

SUL  V 

4 

CUMMGN/UNt/ACtLK,ACtLZ,ltKP,0, TUL, VOL , NUMNP, NUMtL.NUMMAl, NUMPC , 

SULV 

5 

*MlYPfc,LLL»N  ,MUANO  ,NUMBLK.*KKK  tNCHECK,  NP*  NL*NFO*HEl)tlB>*  NPC 

SOLV 

e> 

C0MM0N/TM0/C<3,31,5(10,K<),S1G161,P(6),ST(3,10),RR(5),ZZI5>,XC,YC, 

SULV 

7 

*e£(3),LM(41,E<5,4,lu>,RU<IO),NTCtlO> ,MTC< 10) 

SULV 

B 

COMMON/THRE E/Ml 01, NI0T,N11,M4,  STOP 

SULV 

9 

0 IMfcNS 1  ON  R< NUMNP) , Z( NUMNP) ,UR 1 NUMNP 1 ,UZ 1 NUMNP 1 , 1 (NUMNP) , PR ( NPC ,2 1 

.  \  i  V 

10 

*«S 1GI  ( NUMEL.6 ) , COPE (NUMNP ) , IX 1 NUMrL » 5) , 1 6C t NPC 1 , JBC (NPC) 

SULV 

11 

0 1  MENS 1UN  CU(NEL) ,A(NL,MBANO) , M NEO ) 

SULV 

12 

DO  10  N= 1  , NUMRL 

SULV 

13 

00  10  1=4,6 

SOLV 

14 

10 

S1G1 ( N, 1 ) =0 • 

SOLV 

15 

00  20  N=l, NUMNP 

SOLV 

16 

NN=2*N 

SOLV 

17 

CU1NN-1 1=0. 

SULV 

IB 

20 

C  U  (  NN 1  =  0  . 

SULV 

19 

KEW1N0  2 

SULV 

20 

ND2=NL 

SULV 

21 

N0=NL/2 

SOLV 

22 

NB=N0/2 

SOLV 

23 

STUP=0.0 

SOLV 

24 

NUMBLK=0 

SOLV 

25 

DO  50  N=1,ND2 

SULV 

26 

00  50  M= 1 , MBANO 

SULV 

27 

50 

AINjMI =0.0 

SOLV 

26 

60 

NUMBLK=NUMBLK+1 

SULV 

29 

NH  =  NIV.  (NUMBLK  +  ll 

SOLV 

30 

NM=NH-NB 

SOLV 

31 

NZ=NM-NB*1 

SULV 

32 

KSH  IFT=2*N2-2 

SOLV 

33 

00  210  N=1 , NUMRL 

SULV 

34 

NN= IX ( N , 1 1 

SOLV 

35 

DO  65  1=2,4 

SULV 

36 

1M1X1M,I).L1.NN)  NN=  1 X ( N ,  1 ) 

SOLV 

37 

65 

CUNllNUt 

SOLV 

30 

IH  1NN.L1.NZ)  .CR.  (NN.G1.NMH  GO  TO  210 

SULV 

39 

IH 1X(N,3).NF.1X(N,2) )  GU  1U  95 

SULV 

40 

CALL  CNED(R,Z,UR,UZ,!,PR,S;GI,C0DI ,CU,A,U,1X,1BC, JHC) 

SOLV 

41 

MM=2 

SULV 

42 

GO  10  130 

SOLV 

43 

95 

CALL  ELEMEN  ( K , Z , UK ,UZ , 1, PR , S 1 G 1 ,CUDF , CU , A , B , IX , I BC , JBC ) 

SULV 

44 

1F( V0L.G1.01GU  1U  110 

SOL1' 

45 

100 

WR11EI6, 20001  N 

SOLV 

46 

S10P=1 .0 

SULV 

4  7 

110 

MM=4 

SOLV 

48 

IF (  1X(N,3)»£W.1X(N,4) )MM= s 

SOLV 

49 

130 

C0N11NUF 

SULV 

50 

OU  14C  1=1, MM 

14 


wwgss 


SI  L  V 

51 

140 

LM( 1 1 r2*lX(N, 1 1-2 

SOL  V 

Si 

00  200  1  =  1 1  MM 

SUL  V 

S3 

DO  200  K=  1 ,  i 

SOLV 

64 

1  I=LMU1*K-KSHIFT 

SOL  V 

65 

KK=2* 1-2+K 

SOLV 

56 

00  200  J= 1 f MM 

SOLV 

6  7 

00  200  L=l,i 

SOLV 

SB 

JJ  =  LM(J)+L-U+1-K  SHIFT 

SOLV 

59 

LL=2*J-2+L 

SOLV 

*0 

1FIJJ.L8.01  OU  10  200 

SOLV 

61 

IMNO.Gt  .JJ)  00  TO  196 

SOLV 

62 

im 

WR1TF  (6,2001)  N 

SOLV 

63 

STOP® 1 .0 

SOLV 

64 

00  10  210 

SOLV 

66 

195 

A( 1 1 , JJ) =A( 11 , JJ)*S(KK,LL  1 

SOLV 

66 

200 

CONTI NUE 

SOLV 

67 

210 

CONTINUE 

SOLV 

66 

DO  400  M=NZ  *NM 

SOLV 

69 

IF(M.GT.NUMNP)  00  TO  410 

SOLV 

70 

N=2*M-1-K SHIFT 

SOLV 

71 

1 F ( COOF (Ml)  390,400,316 

SOLV 

72 

316 

IF  (COOEIM) .FO.  1.11,0  TO  370 

StiLV 

73 

IF (CUOfc (Ml. 10.2.100  10  390 

SOLV 

74 

00  TO  380 

SOLV 

75 

3  70 

CALL  MOO l F Y ( A ,N0i »MbANO,N) 

SOLV 

76 

Uli  TO  400 

SOLV 

77 

38  0 

CALL  MOD  1  F V ( A ,ND2 , M8ANI) , N  ) 

SOLV 

78 

390 

CONTINUE 

SOLV 

79 

N=N4l 

SOLV 

80 

CALL  MUD1FV(A,N02,M8AND,N1 

SULV 

81 

400 

CUNTINUT 

SOLV 

82 

410 

CONTINUE 

SOLV 

83 

WR 1 TE( 2)  ( ( A(N,M) ,M=1 ,M8AND1 ,N=1,ND) 

SOLV 

84 

00  420  N=1,ND 

SOLV 

85 

K=N+ND 

SOLV 

bb 

00  420  M  =  1 , M8AND 

SOLV 

87 

A(N,M)=A(K,M) 

SOLV 

88 

420 

A( K,M) =0.0 

SOLV 

09 

IFINM.LT. MJMNH  00  TO  60 

SOLV 

90 

1FIST0R.NE.0.1CALL  EXIT 

SOLV 

91 

NCMECK=1 

SOLV 

92 

KKK  =  1 

SOLV 

93 

CALL  SYMbAN(NU2,A,8,NFO,ML'AND,NUMl'LK  ,KKK) 

SOLV 

94 

KKK  =  2 

SOLV 

95 

00  550  LLL=1  »NP 

SOLV 

96 

CALL  LliAC(k,Z,UR,U2,T,PK,SlCl  ,CLOE  ,CU, A, ti,  1 X,  18C , JRC  1 

SOLV 

97 

CALL  SYMbAN  ( NP2  .A  ,  8  ,NbO  ,Ml<  AND  , NUMOLK  .K KK  1 

SOLV 

90 

DO  SIC  N= 1 , NUMNP 

SOLV 

99 

NN=2*N 

SULV 100 

CUINN-1 J=CU(NN-1 !♦» (NN-1 1 

15 


r 


¥ 


- -  - 


sin.  viol 
S0LV102 
SOLV103 
S0LV104 
S0LV105 
SOLV106 
S0LVI07 
SOLVlOb 
S0LV109 
SOLVUO 
SULV111 
SOLV112 
SULV113 
S0LV114 
SOLV115 
SCJL  V 1  lb 


510  CU(NN)  =  CU(NNM-6(NN) 

WRITE  (6,2013)  LLL 

HR  I Tfc ( 6,2010)  (N,6(2*N-1),B(2*N) ,CU(2*N-I ),CU(2*N),  N  =.  I.NUMNP) 
CALL  STRESSfR,2«Uk,UZ,T,PR,SIGI,CQDE,CU,A,B,IX,  IBC,Jl.C) 

IF ( NCHECK.EQ.O)  GO  TO  fa 00 
550  CONTINUE 
GO  TO  990 

<•00  WRITE  1 6,2011  )LLL 
940  RETURN 

2000  FORMAT  (26H0NEGAT IVE  AREA  ELEMENT  NO.  14) 

2001  FORMAT  (29H0BAN0  WIDTH  EXCEEDS  ALLOWABLE  14) 

2010  FORMAK12HON.P. NUMBER  17X  3HDUX  1 7X  3HDIIY  I8X  2HUX  IPX  2HUY/ 
1(1112,4120.7) ) 

2011  FORMAT ( 35HO  NUMBER  OF  CYCLES  TO  CONVERGENCE  =  15) 

2013  FORMAT) 30H1  RESULTS  OF  ITERATION  NU.=  15///) 

END 
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. . 


mammarnmeik, 


CLEM 

2 

FLEM 

3 

ELFM 

4 

ELEM 

5 

ELEM 

6 

ELEM 

7 

ELEM 

8 

ELEM 

9 

FLEM 

10 

ELEM 

11 

ELEM 

12 

ELEM 

13 

c 

ELFM 

14 

ELEM 

16 

ELEM 

16 

ELEM 

17 

ELEM 

18 

ELEM 

19 

ELEM 

2D 

ELEM 

21 

ELEM 

22 

ELEM 

23 

ELEM 

24 

ELEM 

25 

ELEM 

26 

5D 

ELEM 

27 

60 

ELEM 

28 

FLEM 

29 

ELEM 

3D 

80 

ELFM 

31 

90 

ELEM 

32 

(LEM 

33 

100 

ELEM 

34 

105 

ELEM 

35 

1  ID 

ELEM 

36 

ELEM 

37 

ELEM 

38 

ELEM 

39 

ELEM 

4D 

ELEM 

41 

ELEM 

42 

ELEM 

43 

ELEM 

44 

ELEM 

45 

ELEM 

46 

ELEM 

47 

120 

ELEM 

48 

FLEM 

49 

120 

ELEM 

SD 

COMMON  AA (10000), 1AI15DD) 

.m  AL'l:.KAACfc  LZ  *  IfcMP  *U ' TtJL  ’  V°L  .NUMNP ,NUMEL .NUMMAT  .NUMPC  , 

?™PE*  *-LL»N.hL  AND,NUM8LK,KKK,NCHE  CK,  NP  ,NL  ,NE0  ,EIED  ( 18)  ,NPC 

COMMON/IHO/C(3,3),SlllD,lD),S,G(6),P(8),STl3,1D),RR(6),2Z<5),Xc,YC, 

*t£ (3) ,LM(4),E(5,4,1D) , RO( ID )  »NTC ( 10) ,MTCI 10) 

COMMON/THREE/MTGT, N TOT, N11.M4, STOP 
J ° 1 DN  R * NUMNP • » z < NUMNP ) , UR ( NUMNP )  ,UZ  ( NUMNP ) , T (NUMNP ) ,PR(NPC,2 ) 
*, S 1GI ( NUMEL»6 )  ,COOE (NUMNP ) , IX I NUMEL ,5 ) , 1 6CI NPC ) , JBC ( NPC ) 

DIMENSION  CU(NEQ),A(NL,MBAND),8INF0> 

DIMENSION  U( 3 ) t V( 3 ) 


1  =  1 X( N* 1 ) 

J=1X(N*2) 

K=1X(N,3) 

L=IXIN,4) 

MTYPE=1X(N,5) 

VUL*0. 

TEMP=(T(1 )  +  T( J)+T(K)+T(L> )/4.0 
RAT  10=0.0 
NUMTC=NTC (MTYPt ) 

IF  (NUMTC.EQ.l)  GO  TO  100 
DO  5D  M=2  # NUMTC 

IF  IE(M,1,MTYPE)-TEMP)  50,60, 60 


1FIDEN.F0.D. )  GO  TO  60 

RAT  10= ( TEMP-E(M-1,1,MTYPE ) )/DEN 


GO  TO  110 


C ( 1  , 1 1  =COMM 
C( 1,2 l=CUMM*tfc(2) 

C ( 1 ,3 ) =D. 

C(2,1)=C(1,2) 

C ( 2 ,2 ) =C ( 1 , 1 ) 

C ( 2,3 1 =0. 

C ( 3 , 1 ) =0. 

C ( 3 ,2 1 =0. 

C(3,3)=.5*CUMM*(1.-EE(21) 
DD  13D  J=1 , ID 
DO  120  1=1,3 


DO  130  1=1,10 
S( I ,J)=D. 

DO  140  1=1,4 
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I 


9W3WtemMMamsm&!Si 


t  LEM 

SI 

NPP  =  IX ( N  1 1 ) 

ELEM 

52 

RR (  I)=K(NPP) 

ELEM 

53 

140 

ZZ(  1)=Z(NPP) 

tLEM 

54 

1  E  I  1 X  ( N 1 3  )  •  1  0 . 1 X ( (, ,•'  1 ) 01 1  1U  150 

tLEM 

55 

XL=(RR( 1)+KR(7 )+RR(3)+RR(4) )/4. 

l  LEM 

56 

YC=(ZZ(l)+ZZ(2)+Z7(3l+Z7(4))/4. 

1.  Lt  M 

57 

PR  (  j )  =XC. 

ELEM 

5b 

t  Z ( 5 ) =  YC. 

CLEM 

5  V 

K  =  5 

ELEM 

6U 

2  =  1 

ELEM 

61 

1=4 

ELEM 

62 

LM ( 3 ) =9 

ELEM 

62 

NT  =  4 

ELEM 

64 

Gil  TO  160 

ELEM 

65 

150 

N  1  =1 

ELEM 

66 

LM  (  5  )  =5 

ELEM 

67 

1  =  1 

ELEM 

68 

K  =  3 

ELEM 

69 

J  =  2 

ELEM 

70 

XC  =  ( RR ( 1 ) +  RR ( <  )  +RP. (3)1/3. 

ELEM 

71 

YC  =  (ZZ(l)  +  ZZ(<:l+ZZ(3))/3. 

ELEM 

72 

R  R  T  5 )  =  R  R  C  3  1 

ELEM 

73 

Z Z  (  5) =ZZ ( ; ) 

ELEM 

74 

16G 

tin  200  NN=  1  f Ml 

ELEM 

75 

LM ( 1 ) =2* 1— 1 

ELEM 

76 

LM(2)=2*J-1 

ELEM 

77 

U(  1)=ZZ(J)-ZZ(M 

ELEM 

7b 

U(2)=ZZ(K)-ZZ(1I 

FLEM 

79 

U(3)=ZZ( 1)-7Z( Jl 

ELEM 

80 

V(  1)  =  RR(K1-PP (Jl 

ELEM 

8  1 

V  (  2 )  =  RR ( 1 )-Kk(K) 

ELEM 

r,2 

V(?)=KR(J1-KR(1) 

ELEM 

83 

ARIA=(RR(Jl*U(2)+RR(l)*U(l)+RR(5)*U(Jfl/.  • 

r  LE  M 

E4 

V()L=VHL  +  AKEA 

l  LI  M 

05 

COMM=.25/AREA 

ELEM 

86 

XNT=NT 

1  LEM 

87 

LEjM=2./XNI 

f  LEM 

80 

COM=CuM*COMM 

ELFM 

lib 

00  180  L  =  1 1 2 

ELEM 

90 

1 1=LM ( L ) 

ELEM 

91 

ST(lfll)=5T(l»l 1 1  +U  (L  ) *LOM 

LLtM 

92 

2E(  2,  1 1  +  1  )=!.(  (2  ,1 1  +  ll+VlL  )*COM 

ELEM 

93 

5T(3,11)  =  5.T(3,11)+V(L)*C0M 

ELEM 

94 

SK3,  11  +  11  =  ST  (3,11  +  11  +  LI(L  )*CUM 

1  LEM 

95 

DO  160  M  =  1  *  3 

ELEM 

96 

JJ=LM(M) 

1  LEM 

9  7 

M  11, JJ)  =  S(  ll»JJl  +  (U(LI*C(iil) *0 (M)+V(L)+C(3»3)*V(M)) 

LLEM 

98 

6( 1 1, JJ  +  1  )  =  S( 1 I ,JJ+1)+<U(L)*C( 1,2)*V(M)+V(L)*U3,31*U(M) ) +COMM 

ELEM 

99 

S(  1 1  +  1, JJ  +  11  =  5( ll+l.JJ  +  ll  +  IV1L )*C ( 1, 1)*V(M)+U(L )*C( 3*3 )*U(M ) )*l L MM 

ELEMluO 

b(  JJ+1.  11  )  =  5(  1 1  ,JJ+1) 

ELEM101 
FLFM102 
ELFM1C3 
FLFM104 
E  LEM105 
ELEM106 
i  LEM107 
FLEMlOb 
ELEM105 
ELEM110 
ELfcH 111 
ELEM112 
ELEM113 
LLFM114 
FLFM115 
f  LEM  1 16 
E  LEM  1 1 7 
ELEMllb 
E  LEM  1 1 V 
FLFM120 
FLEMl 2 1 
ELEM122 
ELEM123 
ELEM124 
ELEM125 
t LFM 126 
ELEM127 
ELEMI28 
ELEM129 
ELEM130 
FLFM131 
LLEM132 
ELEM133 
ELEM134 
ELFM135 
E  LEM  136 
F  LEM  137 
l  LEM  I  38 
ELFM139 
LLEM14U 
ELEM141 
ELEM142 
ELEM143 
ELEM144 
ELEM145 
ELEM146 
ELEM147 
ELEM148 
ELEM14V 
ELEM15fl 


180  CUNIINUE 
1  =  J 
J=J+1 

200  CONTINUE 

IF  (  IX(N,3>.EC.IX(N,4|  IGF)  10  260 

0U240  1=1,2 

KK= 10— 1 

DC  240  K-l , KK 

CC=S(KK+1 ,K)/5(KK*1 ,KK+1> 

OU  230  J= 1 , 3 

230  ST< J,K)=ST( J,K)-CC*ST< J.KK+ll 
DO  2*0  J=1,KK 

240  S( J,K)  =  S(  J,M-CL*S( J.KK+l) 

250  CONTINUE 

IFILLL.EL.il  00  To  400 
SIGH  I  =— S 1 G 1  (  N,  4) 

S  10(2  )=-6lGI  (N,3) 
S1G(3)=-S1G1(N,6) 

GO  TO  500 
*  *  *  ****** 


*>**** 


*********************** 

INITIAL  STRESSES  AODED  TO  THE  CALCULATED  STRESSES 

*************************** 

400  DT  =  TEMP-0 
0X=EE(3)*DI 
DY=FE (31 *DT 


INITIAL  STRESSES  CALCULAIE4  TOTAL  HEIGHT  =bB  FT.  AND  VALUI  OF 
CUEFF.  KO  =0.2  ANO  UN11  WfciGhT  =  150  FOR  ALL  MATERIALS 
SIGI(N,2)=  -150.0  *  (08.0  -  YC I 
SIG 1 ( N, 1 1  =  0.2*  S IG1 (N, 2) 

SIGKN,  31=0.0 


S I C  (  1 1  =-C  ( 1 , 1 )  *DX-C  ( 1 , 2  )*DY+S  1 G I  ( N ,  1 1 
SIG(2)=-C(2,l)*DX-C(2»2l*DY+SIGI (N,2) 
SIG (3  I =S TO  1 (N, 3 ) 


500  DU  520  1=1,8 
P< I  1  =  0.0 
DO  510  J= 1 , 3 

510  P(II=P(I)-ST(J,I)*SIG(J) 

520  P ( I )  =  P( I l*VOL 

I F ( LLL  .  EG . 1 )  GO  TU  540 
00  530  1=1,3 
630  S I G ( I  1=0.0 
GO  TO  600 
540  MM=4 

IF< IX (N,3 ).EO.IX(N,m) I  MM=3 
xmm=mm 

DY=VUL*ACFLZ*KD(MIYPF l/XMM 
DX= VOL* ACE LR*RO(M TYPE l/XMM 
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SIRS  1  SUBRUUT  INfc  SrktSS<(.,7,Uk,UZ,T,PR,SlGl,CODE,CU,A,b,IX,I6C,JBC) 

STRS  2  IMPLICIT  RLAL*b (A-H.U-Z) 

SIRS  3  COMMON  AA< IOOOO), IAI1500) 

STRS  A  C(JMMON/nNE/ACfcLk,ACELZ,TEMP,Q, TOL, VOL, NUMNP, NUMEL.NUMMAT.NUMPC, 

SIRS  5  *MTYPfc,LLL,N,MBAND,NUM8LK,K2K,Nr.HP.CK,NP,NL,Nt-G,HF.O(  16)  ,NPC 

STRS  6  COMMON/ T WO/C ( 3,3)  ,SI 10. 10) ,SIG|6) , PI B) ,STI 3. 10 1 , RR ( 51 , ZZI 5 1 , XC « YC , 

STRS  7  *E£(3)  ,LM<4)  ,EI5,*,,10I  ,R01  10)  ,NTC(  10)  ,MTC(  10) 

STRS  8  COMMON/THREE/MIUT.NTOT, Nil, M4, STOP 

STRS  9  DIMENSION  R I NUMNP ) ,Z( NUMNP I , UR {NUMNP ( ,UZ (NUMNP ) , T ( NUMNPI ,PR ( NPC , 2 ) 

STRS  10  *,SIGI <NUMEL,6) .CUOHNUMNP) , IX < NUMFL , 5 1 , IbC ( NPC ) , JBC t NPC 1 

STRS  11  DIMENSION  CUINFO) ,A(NL,MBANDI ,b(NEQ) 

STRS  12  FOR  =  0.0 

STRS  13  MPRINT-0 

STRS  14  DO  600  M=1,NUMEL 

SIRS  15  N=M 

STRS  16  MTYPt= IX ( N, 5 ) 

STRS  17  SIGI IN, A) =0. 

STRS  IB  SIGI IN, 5) =0. 

STRS  19  SIGI(N,6l=0. 

STRS  20  IF(1X(N,3).NF.IX(N,2))G0  TO  90 

STRS  21  I=IX!N, 1) 

STRS  22  J=IX«N,2) 

STRS  23  XCMRI I  )*RI JI  1/^.0 

STRS  2A  YC-IZm  +  Z  (Jl  1/2.0 

SIRS  25  DX  =  R<  J)-k< 1 1 

STRS  26  DY  =  Z( JI-ZI I  I 

STRS  27  XL=OSQRT<OX**2+UY**2l 

SIRS  28  0U=B(2*J-1)-B<2*1-1) 

STRS  29  UV=b<2*J)-BI2AI ) 

STRS  30  DL*OV*DY/XL+DU*UX/XL 

STRS  31  SIG(l)=E(l,4,MTYPt)*DL*fc(I,2,MTYPE)/XL+SIGllN,l)*Ell,4,MTYPE) 

STRS  32  I  F  (  SIGI 1 ) .GT .0. )  GO  TO  100 

STRS  33  S1GKN.1 )  -S  IG<  1 ) 

STRS  3A  GO  TO  500 

STRS  35  100  SIGI(N,A)=E(l,^,MTYPfcl*DL/XL+SIGIIN,l) 

STRS  36  SIGHN, 11=0. 

SIRS  37  GO  TO  A20 

STRS  38  90  CALL  i'LEMFN  I R  , Z , UR,  UZ,  T  , PR , S I G I  , CODE ,CU,  A ,  b ,  I X ,  IBC ,  JBC  ) 

STRS  39  MM=4 

STRS  AO  IFI IXIN.3) .Nfc.IXIN.A) 100  TO  170 

SIRS  A 1  MM=3 

SIRS  A2  170  DO  I  BO  1  =  1,3 

SIRS  A3  RR< 1 1=0. 

SIRS  AA  DO  lbO  J  =  1 , MM 

SIRS  A5  II=2YJ 

SIRS  A6  JJ=2* I  X I N , J  I 

STRS  47  IBC  RR II) =RR ( II+ST (  i,  II )*b( JJl+STI I, II-l)*BI JJ-1 ) 

STRS  A8  DO  190  1=1,3 

STRS  h9  DO  18  5  J  =  l,3 

STRS  50  185  SIG(1)=S1G( II*C(I,JI*RR(J) 
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SIRS  Si 
SIRS  52 
STRS  S3 
SIRS  54 
SIRS  55 
SIRS  56 
SIRS  57 
SIRS  58 
STRS  59 
SIRS  60 
STRS  61 
STRS  62 
STRS  63 
STRS  64 
STRS  65 
STRS  66 
STRS  67 
STRS  6B 
STRS  69 
SIPS  70 
SIRS  71 
STRS  72 
STRS  73 
STRS  74 
SIRS  75 
SIPS  76  l 
STRS  77 
SIRS  76 
STRS  79 
STRS  SO 
STRS  61 
STRS  62  ■ 
SIRS  83 
STRS  84 
STRS  85 
STRS  66 
SIRS  87 
STRS  88 
SIRS  89 
STRS  90 
STRS  91 
STRS  92 
STRS  93 
STRS  94 
STRS  95 
STRS  96 
STRS  97 
STRS  98 
STRS  99 
STRS100 


CONT 1NUE 

1FILLL.FU.I >  00  TO  195 
UC,  192  1*1.3 

s  it  1 1 1 =sici  iksigiin.ii 

CONTI NUF 

CC=(S1GI1  KSIl-12)  1/2.0 
PB=ISIG<l)-Slol2> 1/2. 

CP=DSURTI l R**2+Slt( 31**2) 

S1M4)  *CC+CK 
S1CI5) -CC-CR 
Slt(6)=:,( 

IK  (Bfc  .t(J  .0 . 1  •  AM).  1  Slbl  31  .60. C  .  I  I  OU  It  /GO 
Si 0(61*28  .646*0  AT  AN2  'SIC I  31.6-6) 

GX=G. 0 

I  SlGKN.n-Sltlll 

sitiiN,2)=sn>(2) 

Sltl I N.3) =S It  1 3 ) 

1MIS1G(4).LE.G)  .OR.IMTC  (KTYPEI.FO.O)  )  lu  TL  SCO 
I  H  SI G(  5  )  .G 6.0.00001)  Gt  TO  370 
EPS=SIG(6)/57-296 
CC=UCOS( EPS ) 

5S=0SIN(LPS) 

C2=CC*CC 
S2*  SS  +  SS 
SC-SS*tC 

0X=6fel2l*SlC (4) 

S 1 0)  I N, 4 1  =  Sltl  4)  *02*DX*S2. 

S1GIIN.5)-  S 1GI 4)*S2+DX*C2 
S 10  I (N,6)  =  Slt 14)*SC-DX*SC 


GO  10  400 

SK.  ll  N.4)=SIG(  1  I 
S It  1 1 N. 5 ) -S  It (2  I 
Sltl(N,6)=Sltl j) 
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CHAPTER  IT:  ELPL  -  A  Computer  Program  for  Plane 
Strain  Analysis  of  Stresses,  Deformations  and 
Progressive  Failure  in  Elastic- Perfectly 
Plastic  Rock 

2.1.  Purpose  and  Capability 

This  program  is  applicable  to  plane  strain  analysis  of  stresses,  deformations  and 
progressive  failure  in  elastic-perfectly  plastie  material  following  generalized  Mohr-Coulomb 
yield  criterion,  and  the  incremental  theory  of  plasticity.  Arbitrary  initial  stresses,  arbi¬ 
trary  sequence  of  exeavation  and  construction,  arbitrary  history  of  load  application  can 
be  simulated.  One-dimensional  elements  with  prescribed  prestress  can  be  included  in  the 
analysis.  The  computer  program  is  applicable  to  study  of  stability  of  underground  or  sur¬ 
face  exeavations,  evaluation  of  alternative  schemes  for  exeavation,  comparative  study  of 
support  stresses  and  deformation. 

Theoretical  development  incorporated  in  the  program  is  discussed  in  Part  I- 
Teehnical  Report,  of  this  report. 

2.2.  Program  Organization 

The  computer  program  is  in  Fortran  language.  Tapes  1  and  2  are  used  as  scratch 
files.  Tapes  5  arid  f>  are  the  input/output  files.  The  listing  in  section  2.5  uses  double 
precision  for  real  numbers.  The  program  capacity  can  be  altered  by  changing  the  dimen¬ 
sion  of  arrays  AA  and  IA.  These  correspond  to  the  total  locations  required  in  double  pre¬ 
cision  real  arrays  and  integer  arrays  respectively.  NTOT,  MTOT  at  lines  MAIN  28,  MAIN 
27  are  set  equal  to  the  dimension  of  AA  and  IA. 

The  program  consists  of  the  following  units. 
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a.  MAIN 


In  this  unit,  the  control  information  including  maximum  number  of  elements, 
nodal  points,  different  materials,  boundary  pressure  cards,  the  number  of  steps  of 
excavation  or  construction,  the  maximum  number  of  elements  removed  from  the  system 
or  added  to  it  at  any  step,  is  read  in.  This  information  is  used  to  organize  the  dimen¬ 
sions  of  various  arrays  in  the  analysis.  This  done,  the  analysis  moves  on  to  the  next 
unit. 

b.  Subroutine  IN  PT 

This  subroutine  is  called  by  the  unit  MAIN.  The  first  step  is  to  read  in  material 
property  data,  for  all  the  different  materials  that  may  participate  in  the  system  at  any 
stage.  Also  nodal  point  coordinates,  loads  and  code  on  boundary  conditions  are  read 
in  or  generated.  Element  geometry,  initial  stresses  and  element  thickness  is  also  read 
in  or  generated.  The  initial  stresses  may  be  input  or  computed  within  the  program.  The 
thickness,  if  not  specified,  is  assumed  to  be  unity.  Maximum  bandwidth  for  the  system  is 
calculated  and  dimensions  of  blocks  for  generation  and  storage  of  the  system  stiffness 
matrix  are  defined.  After  defining  these  controls,  the  incremental  structure  is  analyzed 
in  steps.  For  each  step  the  number  of  nodal  points,  the  number  of  elements,  the  number 
of  elements  removed  or  added,  if  any,  the  number  of  boundary  pressure  cards,  the  material 
type  of  the  elements  added  or  changed  in  material  properties,  the  number  of  nodal  points 
removed  or  added  to  the  system  in  the  step  considered,  the  thickness  of  elements  added, 
are  read  in.  Additional  information  defines  whether  a  step  involves  excavation  or  construc¬ 
tion.  At  any  step,  several  changes  can  be  simulatanoously  introduced  into  a  structure. 
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For  example,  addition  of  several  sets  of  elements  of  different  materials,  changes  in 
material  properties  of  other  elements,  removal  of  certain  elements  can  all  be  intro¬ 
duced  simultaneously  if  desired.  For  each  step  the  boundary  pressures  are  read  in. 

After  all  the  information  is  assembled,  the  solution  process  is  transferred  to  sub¬ 
routine  SOLVE, 
e.  Subroutine  SOLVE 

This  subroutine  called  by  INPT  is  concerned  with  obtaining  the  stresses  and 
deformations  at  a  given  stage  of  the  incremental  structure  allowing  for  progressive 
failure.  To  trace  the  progressive  failure,  the  solution  process  traces  a  sequence  of 
elements  reaching  yield  under  the  loads  applied.  This  sequence  of  yield  is  associated 
with  a  proportion  of  the  load  application  and  is  described  in  the  output  as  successive 
approximations  with  increasing  'stress  ratio.'  The  procedure  consists  of  applying 
the  total  load  and  then  scaling  it  according  to  the  minimum  rates  of  load  increment 
needed  to  ensure  an  excursion  to  yield  by  one  clement  at  a  time. 

The  SOLVE  subroutine  calls  ONED  and  QUAD  to  obtain  stiffness  of  one-dimensional 
and  two-dimensional  elements  respectively.  This  is  added  to  system  stiffness  which  is 
stored  on  tape  after  modification  for  prescribed  displacement  boundary  conditions.  Solu¬ 
tion  to  the  stiffness  equations  is  obtained  in  subroutine  BANSOL  and  subroutine  STRESS 
defines  the  stresses,  the  stress  ratio,  the  sealing  of  stress  increments  and  the  control 
for  continuation  of  progressive  failure  analysis, 
d.  Subroutine  ONED 


This  subroutine  generates  stiffness  of  one-dimensional  elements  as  well  as  the 


forces  corresponding  to  the  unbalanced  stress  defined  by  the  diiierenee  in  total  load 
application  and  the  load  taken  by  the  system  in  the  current  approximation  in  progres¬ 
sive  failure  analysis, 
c.  Subroutine  QUAD 

This  subroutine  generates  the  stiffness  for  two-dimensional  elements  (quadri¬ 
laterals  or  triangles).  For  the  current  load  increment,  an  element  is  cither  elastic 
or  has  reached  yield  and  is  plastic.  The  subroutine  STRSTR  is  called  to  obtain  the 
stress-strain  relationship.  Gravity  loads,  and  loads  corresponding  to  unbalanced 
stress  arc  generated  in  this  subroutine, 
f.  Subroutine  STRSTR 

This  subroutine  is  called  by  QUAD  and  also  by  STRESS.  It  defines  the  stress- 
strain  relationship  for  the  clastic  or  plastic  materials  as  the  case  may  be.  For  the 
elastic  case  the  relationship  is 


and  c r7  ~  v  (c rx  +  cry) 

E  v 

where  E*  =  - 5  ,  y*  -  - 

1  -  v*  1  -  v 

and  E,  v  are  respectively  the  Young's  modulus  and  Poisson's  ratio  for  the  isotropic 
elastic  material.  If  anisotropy  is  to  be  considered,  the  above  relationship  can  be  modi¬ 
fied  to  reflect  that  property. 
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For  the  plastic  domain  the  stress-strain  relation  is 


where  Du  =  2  G  (1  -  h£  -  2  hT  <rx  -  hg  crx2) 

D21  ~  D12  “  -  2  G  (+  h2  +  ht  (<rx  +  <ry)  4-  h3  <rx  <ry) 

°31  =  °13  =  -  2  G  (hl  Txy  +  h3  Txy) 

D22  =  2G  (1  -  h2  -  2hj  <ry  -  hg  <ry2) 

D32  =  d23  =  -  2  G  (^1  Txy  +  h3  °y  '  xy) 

D33  =  2G<-5-h3Txy2) 

n41  "  -  2G  (h2  t  h,  (o-x  *  i  h3<rx»z) 


0  ■’  V 


I  1  !>  M 


2  K 

!)  a  — 

G 


K  bulk  modulus  = 


3  (1  -  2v) 


Jl'  °-x  h  °-y  1  a7,  r  first  iTlv;iriant  °f  the  stress  tensor 
j 2  -  the  second  invariant  of  the  stress  deviation  tensor. 


g.  Subroutine  MODIFY 

This  subroutine  is  called  by  the  subroutine  SOLVE  to  modify  the  stiffness  matrix 
for  prescribed  displacement  boundary  conditions.  The  modified  matrix  is  returned  to 
SOLVE. 

h.  Subroutine  BANSOL 

This  subroutine  called  by  the  subroutine  SOLVE  solves  the  stiffness  equations 
by  gaussian  elimination  using  auxiliary  storage  files  1  and  2.  Results  are  stored  in 
B  array  anci  returned  to  SOLVE. 

i.  Subroutine  STRESS 

This  subroutine  is  called  by  the  subroutine  SOLVE  after  displacements  corre¬ 
sponding  to  a  load  increment  have  been  computed.  As  a  first  step  the  entire  load  is 
assumed  to  be  applied  and  the  resulting  stress  state  checked  for  possible  excursion 
beyond  yield.  If  the  total  load  application  shows  an  clement  passing  from  the  elastic 
to  the  plastic  stage,  the  stress  ratio  is  computed  as  explained  in  Part  I- Technical 
Report.  The  minimum  stress  ratio  of  all  elements  corresponds  to  the  least  load  incrc- 
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ment  necessary  for  at  least  one  more  element  to  pass  from  elastic  to  the  plastic  range. 

I  he  stress  ratio  also  has  to  be  such  that  elements  previously  on  the  yield  surface  do 
not  depart  from  this  surface  by  more  than  the  designed  tolerance.  To  avoid  unnecessarily 
lengthy  computation,  the  ratio  is  kept  above  a  certain  minimum.  Elements  yielding  with¬ 
in  a  small  fraction  of  the  load  corresponding  to  the  stress  ratio  are  assumed  also  to  have 
become  plastic  for  the  purpose  of  subsequent  computations. 


The  stiffness  for  elements  in  plastic  range  is  stress  dependent.  Thus  over  an 
increment  of  load  the  stiffness  will  change.  Noting  that  plastic  yield  is, in  general, local 

in  character,  it  is  reasonable  to  assume  that  the  change  in  stiffness  will  affect  the  stress 

¥■" 

without  significantly  altering  the  strains  or  displacements.  An  iterative  procedure  is 
included  to  allow  for  this.  Also  to  determine  whether  elements  initially  in  plastic  range 
unload  elastically  in  a  non-monotcnie  loading  sequence,  a  pilot  analysis  is  carried  out, 
assuming  all  elements  to  be  elastic,  whenever  the  structure  geometry  is  changed  or  a 
new  loading  applied.  Details  of  these  procedures  are  discussed  in  Part  I- Technical  Report. 

After  evaluation  of  stress  ratio,  the  correct  stresses  in  all  elements  are  calcu¬ 
lated  corresponding  to  yield  of  the  next  group  of  elements.  The  difference  between  the 
incremental  stress  corresponding  to  the  total  load  increment  and  the  stress  allowed  by 
the  stress  ratio  is  treated  as  unbalanced  stress  and  applied  as  psuedo-load  in  the  next 
iteration. 

2. 3.  Input  Data 

Input  to  the  program  is  a  sequence  of  punched  cards  in  the  following  order  and 


format: 
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an  intermediate 
step  ? 


Pilot  analysis  needed.  Assume  all 
elements  elastic  in  first  approx. 


Analysis  of  Progressive  Failure 
of  Incremental  System 


Set  up  System  Stiffness 


Calculate  incremental  stresses 
and  displacements 


analysis  and  \ 
NNN=1,  is  any  element 
\  previously 
^\plastic 


Is 

Strain 


\ increasing  in  any 
\  element  ^ 


Calculate  incremental  and 
total  stresses  &  displ.  for 
this  SR.  Iterate  for  non¬ 
linearity  as  needed 


Calculate  minimum 
Stress  Ratio 


balance  load 
\  =  0?  / 


Are 

ali  incremental 
v  steps  done 


Chart  for  Progressive  Failure  of  Elastic- Plastic  Incremental  System 


a.  First  Card.  Job  Title  (18A4) 

This  eard  carries  a  descriptive  title  to  identify  the  job. 

b.  Second  Card.  Control  Information  (415,  2F10.2,  315) 

This  eard  carries  the  control  information  for  the  problem  being  solved. 


Information  Columns 

Total  number  of  nodal  points  (NUMNP)  1-5 

Total  number  of  elements  (NUMEL)  6-10 

Number  of  different  materials  (NUMMAT)  11-15 

Number  of  pressure  cards  (NUMPC)  16-20 

Acceleration  in  X-direetion  (ACELR)  21-30 

Acceleration  in  Y-direetion  (ACELZ)  31-45 

Total  number  of  excavation  and  construction  steps  (NSTEP)  46-50 

Code  to  designate  whether  initial  stress  is  being  fed  as  data  51-55 

or  will  be  evaluated  before  the  first  step  (MCASE) 

MCASE  -  0,  initial  stress  will  be  evaluated 
=  1,  initial  stress  is  fed  as  data 


Maximum  number  of  clements/nodal  points  removed  or  added  56-60 

in  any  one  step  (NMR) . 

e.  Material  property  cards 

One  set  of  cards  will  be  provided  for  each  material.  Eaeh  set  will  eonsist  of 
the  following  cards: 

i.  First  Card  (15,  F10.0) 

Information  Columns 

Material  identification  number  (MTYPE)  1-5 

Mass  density  of  material  (RO)  6-15 
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ii.  Seeond  Card  (5F10.0)  for  two-dimensional  element 


Information 

Columns 

Elastic  modulus 

1-10 

Poisson's  ratio 

11-20 

Cohesion 

21-30 

Angle  of  internal  frietion  in  degrees 

31-40 

iii.  Seeond  card  (5F10.0)  for  one-dim  ensiomJ  element 

Information 

Columns 

Elastie  modulus 

1-10 

Poisson's  ratio 

11-20 

Code  =  1,  if  element  is  prestressed 

-  0,  if  element  is  not  prestressed 

21-30 

Allowable  compressive  strength  of  the  material  if  the  element 
has  prestressing  (code  -  1) 

31-40 

Area  of  one-dimensional  element 

41-50 

Nodal  Point  Data  (15,  F5.0,  5  F10.0) 

One  card  for  each  nodal  point  with  the  following  information  is 

provided. 

Information 

Columns 

Nodal  point  number 

1-5 

Type  of  nodal  point  (CODE) 

6-10 

X-ordinate 

11-20 

40 


E 

i 


1 


1 


0.0  XR  is  the  specified  X-load  and  XZ  is  the  specified  Y-load 

1.0  XR  is  the  specified  X-displacement  and  XZ  is  the  specified  Y-load 

2.0  XR  is  the  specified  X-load  and  XZ  is  the  specified  Y- displacement 

3.0  XR  is  the  specified  X-displacement  and  XZ  is  the  specified  Y-displaccment. 


Nodal  point  cards  must  be  in  numerical  sequence.  Nodal  points  for  which  no  cards 
are  input  will  be  generated  by  interpolation  between  specified  nodal  points.  These  points 
will  have  CODE  and  loads  set  equal  to  zero.  The  X,Y  coordinates  will  be  linearly  inter¬ 
polated. 


e.  Element  Data  (615,  5F10.0) 

One  card  for  each  element,  in  numerical  sequence,  will  show: 
Information 


Columns 


Element  number 


Nodal  point  I 
Nodal  point  J 
Nodal  point  K 
Nodal  point  L 
Material  type 


1-5 

6-10 

11-15 

16-20 

21-25 

26-30 


Nodal  points  are  labelled  I,  J,  K,  L  counter-clockwise. 
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Initial  stresses; 


Component  in  X-direetion 
Component  in  Y-direetion 
Shearing  stress  in  X-Y  plane 


31-40 


41-50 


51-60 


Component  in  Z-direction 


Thiekness  of  element  (TH) 


61-70 


71-80 


If  the  eolumns  for  thiekness  are  left  blank,  thickness  will  be  taken  as  1.0. 
Elements  omitted  from  the  sequence  will  be  generated.  The  material  type  and 
thickness  for  generated  elements  is  the  same  as  for  the  preceding  element. 


f.  If  the  initial  stresses  are  to  be  evaluated  (i.e.  if  MCASE  =  0  in  eard  b),  the 
following  card  should  be  included;  otherwise  proceed  to  g. 

Initial  Stress  Evaluation 
i.  First  eard  (18A4) 

This  eard  gives  the  descriptive  title  of  the  step, 
ii.  Second  card  (415) 


Information 


Number  of  nodal  points  in  this  step 
Number  of  elements  in  this  step 


Columns 


Blank 


Number  of  pressure  boundary  eards 


11-15 


16-20 
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g.  Incremental  Step  Information 


One  set  of  cards  will  be  provided  for  each  step  of  construction  or  dismantling 
as  follows: 

i.  First  card  (18A4) 

This  card  will  give  a  descriptive  title  of  the  step. 


ii.  Second  card  (1015) 

Information  Columns 

Number  of  nodal  points  in  this  step  1-5 

Number  of  elements  in  this  step  6-10 

Number  of  elements  removed/added  11-15 

Number  of  pressure  boundary  cards  16-20 

Material  type  of  new  elements  21-25 

Code  0  for  dismantling  26-30 

-  1  for  construction 

Number  of  nodal  points  removed/added  31-35 


If  in  addition  to  adding/removing  elements,  it  is  desired  to  change  the  material 

type  of  some  existing  elements,  use  columns  36-45. 

Number  of  elements  for  which  material  type  is  to  be  changed  36-40 

New  material  type  of  changed  elements  41-45 

If  it  is  desired  to  adri/remove  two  material  types  in  one  step,  use  columns  46-50. 

KMORE  -  1,  another  material  is  being  added/removed  46-50 

=  0,  no  other  material  is  being  added/removed. 

iii.  Elements  removed/added  (1615) 

One  or  more  cards  will  indicate  the  element  numbers  removed  or  added  in  this 


step.  Total  number  of  elements  should  be  the  same  as  in  columns  11-15  in  card  ii. 


iv.  Nodal  points  removed/added  (1615) 

One  or  more  cards  will  indicate  the  nodal  point  numbers  removed  or  added 
in  this  step.  The  total  number  should  be  the  same  as  in  columns  31-35  of  card  ii. 

v.  Elements  for  which  material  type  changed  (1615) 

One  or  more  cards  will  indicate  the  element  numbers  for  which  material  type 
has  been  changed.  Total  number  should  be  the  same  as  in  columns  36-40  in  card  ii. 


If  KMORE  =  1,  repeat  card  i  to  v  for  the  next  material;  otherwise  proceed 


to  card  vi. 


vi.  Pressure  boundary  cards  (215,  2F10.0) 

The  cards  representing  pressure  at  the  boundary  will  be  as  follows: 


Information 


Columns 


Nodal  point  I 
Nodal  point  J 


Total  normal  pressure  at  I 
Total  normal  pressure  at  J 


11-20 


21-30 


As  shown  in  the  sketch,  the  boundary  of  the  element  must  be  on  the  left  hand 
side  as  one  progresses  from  I  to  J.  Surface  tensile  force  is  input  as  a  negative  pressure. 
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XMana 


Output  information 

The  following  information  is  developed  and  printed  by  the  program: 

a.  Reprint  of  the  input  data 

b.  Cumulative  nodal  point  displacement  after  each  step 

c.  Stresses  at  the  center  of  each  clement  after  each  step 

d.  Stress  ratios  for  elcme*.f-.  which  can  yield  with  full  application  of  the 
balance  load 

e.  The  strss  ratio  applicable  for  any  iteration  and  the  consideration  leading 
to  its  determination  c.g.  yielding  of  next  element,  minimum  stress  ratio, 
maximum  stress  ratio,  ensuring  that  elements  previously  in  yield  surface 
do  not  move  away  from  that  surface  beyond  a  specified  tolerance. 

f.  The  proportion  of  total  load  increment  applied  upto  the  end  of  current 
iteration. 

g.  The  next  group  of  elements  reaching  yield 

h.  The  failure  ratio  for  each  element. 
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- . -  - 


2.8.  Fortn» 


MAIN  1  C  *  FINITE  FLFMFNT  ANALYSIS  DF  EL AST  1 C-F CR F FC TLY  PLASTIC  * 
MAIN  2  C  *  MOHP-CnULOMb  SULIDS  UNDFP  PLANE  STRAIN.  INCRFMFNTAL  * 
MAIN  3  C  *  CONSTRUCTION  EXCAVATION  AND  INITIAL  STRPSSFS  ARF  * 
MAIN  AC  *  CONS IDERFO.  A  4-CST  OUADR ILATERAL  FLFMFNT  IS  USFD.  * 
MAIN  SC  *  THE  FORMULATION  IS  DOCUMFNT  FD  IN  THF  FINAL  REPORT  * 
MAIN  6  C  *  ON  CONTRACT  H0210017  BETHFFN  THF  OHIO  STATE  UN1VFRSITY  - 
MAIN  7  C  *  AND  THF  UNITED  STATFS  RURFAU  OF  MINFS  SUPPORTFO  BY  * 
MAIN  R  C  *  THF  ADVANCED  P F SEARCH  PRnjECTS  AGFNCY.  * 
MAIN  9  C  *  PPOGAMMFRS:  R.D. SINGH  AND  K.J. SINGH  * 
MAIN  10  IMPLICIT  REAL*R(A-H,0-Z) 

MAIN  11  COMMON/TOTAL/  AAI30DD0),  14(7000) 


MAIN  12  COMMON/ONF/NUMNP.NUMEL.NUMOAT  , NUMP C ,  NPM AX  ,N FLMAX , N , t,Nhi,  KKK ,  K LK  , 

MAIN  13  .  1SHIFT,MRAND,NRAND,NUMRLK,MTYPF,NCASF, MCASF, NMR,NL*NPP,NFO,NPC 

MAIN  14  .  ,NP,NSTFP,NCODF 

MAIN  19  COMMON/TWO/PP (S), ZZ (6) ,S< 10,10) ,P(  1 0 1  ,ST  (  3 , 1 01  ,f.  ( 4,4 )  ,  S IG  (  7)  ,  F  F  (  4 ) 

MAIN  16  .  ,TITLf(lR),SRl,SR2,XC,YC,ACELR,ACELZ,BCELR,RCELZ,VDL 

MAIN  17  C0MM0N/THRFF/ST0P,MT01,NTOT,N13,N14,MB 

main  in  c 

MAIN  19  C  ACELR ,  ACFLZ  ARF  RODY  FORCE  INTFNSITIFS.  MCASF  IS  INPUT  AS 

MAIN  20  C  ZFOO  IF  INITIAL  STRFSSFS  HA VF  TO  PF  COMPUTED  AS  PART  OF 

MAIN  21  C  THE  ANALYSIS. 

MAIN  22  C 

MAIN  23  RFAD<5,1000)TITLE  , NUMNP ,NUMFL ,NUMMA  T , NUMPC  »4CFLR, ACFLZ, 

MAIN  24  .  NP,NSTFP, MCASF, NMR 

MAIN  2S  W° I T F  (6,2000)  TI T LF , NUMNP ,NUM FL , NUMMAT , NUMPC , AC F LR , ACELZ ,NP , 

MAIN  26  .  NSTFP,NMR 

MAIN  27  MT0T-7000 

MAIN  2 P  NT0T=30O00 

MAIN  29  NPC=NUMPC 

‘AIN  30  IF(NUMPC.EC.O)  NPC=1 

f AIN  31  IF(NMR.FO.O)  NMR=1 

MAIN  32  NI “1 

MAIN  33  N2=N1+NUMNP 

MAIN  34  N3=N2+NUMNP 

MAIN  3S  N4=N3+NUMNP 

MAIN  36  N5=N4+NUMNP 

MAIN  37  N6=NS+NUMNP 

MAIN  3P  N7=N6+2*NUMNP 

MAIN  39  N8=N7  +  5 *NUMMA T 

MAIN  40  N9=NB+NUMMAT 

MAIN  41  N10=NO+2*NPC 

MAIN  42  N11=N10+R*NUMFL 

MAIN  43  N1 2=N1 1 +NUMFL 

MAIN  44  N13=N1?+NUMFL 

MAIN  49  Ml s 1 

MAIN  46  M2=M1+5*NUMFL 

MAIN  47  M3-M2+NUMIL 

MAIN  4 H  M4  =  M3  +  NPC 

MAIN  49  M5=M4+NPC 

MAIN  90  M6=M5+NMR 
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*  «**a  m^“-  raffftHMra^^ 


Kr 


main 

51 

M7=M6aNMR 

MAIN 

52 

MB=M7+NMR 

MAIN 

53 

JJ  =  MB 

-MTOT 

MAIN 

64 

1F<  JJ 

. l r  .o )  f.o  m  ioo 

MAIN 

55 

WR I  IF (6,30001 JJ 

MAIN 

'6 

CALL 

fxit 

MAIN 

57 

100  CONI INur 

MAIN 

5P 

NF0=2*NUMNP 

MAIN 

55 

CALL 

1NPT  (AA(N1I,AA(N2),AAIN3), 

AA1N41 ,AA(N5),AA(N6) , A  A ( N  7 ) , 

MAIN 

60 

* 

AA(NP1,AA(N5),AAIN10I 

, A  A ( N 1 1  )  «  A  A ( N 1 2 I  ,  1  A ( M 1 ) , 1  A ( M2  1 , 

MAIN 

61 

♦ 

lA(M3),lA(M4),lACM5|f 

I  A  (  M6 ) » 1  A ( M7 )  1 

MAIN 

62 

LOOf  FORMAT! 1BA4/4]5,2F10. 2, 4151 

MAIN 

63 

2000  F0RMAT(1H1,18A4/ 

110/ 

MA  IN 

64 

■  30H0 

NUMBER  OF  NODAL  POINTS 

MAIN 

65 

•  30HO 

NUMBER  OF  ELEMENTS 

110/ 

MAIN 

65 

•  30H0 

NUMPfR  OF  0 IFF .  MATERIALS 

110/ 

MAIN 

67 

OOHO 

NUMBER  OF  PRESSURE  CAROS 

110/ 

MAIN 

6B 

.2°H0 

X-ACCFLtR AT  ION 

FI  1  .1  / 

MAIN 

64 

•  29H0 

Y— ACCF  L  rP  A  T 1  ON 

f  11.1/ 

MAIN 

70 

•  20M0 

NUMBER  OF  APPROXIMATIONS 

110/ 

MAIN 

71 

•30H0 

NUMB  TP  OF  STEPS 

110/ 

MAIN 

72 

.6«>H0 

MAX.  NO.  OF  NODAL  POINTS  OR 

FLEMLNTS  AOOrO  or  RFMOVED  AT  ANY 

MAIN 

73 

.  STFP 

15) 

IN  MAIN  PkOGPAM.  RFOU1RFO  CORF  EX 

MAIN 

74 

3000  FOR  MA  T ( 70H  EXECUTION  TERMINATED 

MAIN 

75 

.C FFOS 

MTOT  BY 

110) 

MAIN 

76 

STOP 

MAIN 

77 

END 
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INPT 

l 

SUBROUT  INF  INPT  ( R ,  Z ,  UR  ,UZ  ,COOF  ,  Bl)  ,F  ,  DO ,  P°  ,  S 1 G I  ,  TH,  FR  ,  I X  ,MTAG , 

INPT 

2 

*  IRC.JBC.NUMR  t NUMR 1  *  NNP I 

INPT 

3 

IMPLICIT  R  E  AL*8 ( A-H,0-Z 1 

INPT 

4 

COMMON/TOTAL/  AAI30000),  IAI7000I 

INPT 

4 

COMMON /ONF/NUMNP»NL'MFL  t  NUMMAT  ,NUMPC*NPMAX  , NFLM AX, N»  NNN, KKK , KLK  , 

INPT 

6 

.  1 SH 1  FT, MB ANO, NIUNO, NUMBER, MTYPF.NC ASF, MC ASF, NMP,NL,NPP,NFQ,NPC 

INPT 

7 

.  ,NP,NSTFP,NCODF 

INPT 

8 

COMMON/ TWO/RR  (51,2215)  ,S(  10,101  , P ( 10 ) , ST ( 3 , I 0 1 , C 1 4,4 1 , S IG( 7) ,FF( 4 ) 

INPT 

9 

.  ,  TITLF.(1PI,SR1,SR2,X:,YC,ACFLR,ACFLZ,«CPLR,BCFLZ,V0L 

INPT 

10 

COMMON /THREF /STOP  tMTOT  .NTDT  ,N1 3  ,N14,  MB 

INPT 

11 

OIMFNSION  R ( NUMNP I » Z INUMNP 1 *ur INUKNP ), UZ ( NUMNP  I , CODF ( NUMNP I , 

INPT 

12 

.  BO(NFO) ,EI5,NUMMATI ,ROINUMMaH .PRINPC  ,2) , SIGI (NUMFL.8) , 

INPT 

13 

.  THINUMELI,FRINUMFL»,IXINUMFL,5) , MT AG  I NUMFL ) , IBCINPC) « 

INPT 

14 

.  JBCINPC  1  ,NUMR(NMR),NUMR1  (NMR(,NNPINMRI 

INPT 

15 

C 

INPT 

16 

C 

INPUT  MATERIAL  PROPFRT  IFS 

INPT 

I  7 

C 

INPT 

18 

DO  55  M=l. NUMMAT 

INPT 

19 

R  F  AO  (5,10011  MTYPF ,R0 ( MT  YPP I 

INPT 

20 

WR I TF ( 6 , 2001 1  MTYPE , RO (MTYPF I 

INPT 

21 

RF AO  (5,10021  (F(J, MTYPF), J=l,5( 

INPT 

22 

WP I TE { 6,2002)  (f(J, MTYPE) ,  J  =  1 , 5 ( 

INPT 

23 

55 

CONTINUE 

INPT 

24 

C 

INPT 

25 

C 

RFAO  ANO  PRINI  NOOAL  POINT  OAIA 

INPT 

26 

C 

INPT 

27 

WR I TF  (6,2003) 

INPT 

28 

L*0 

INPT 

29 

60 

RFAO  (5,1003i  N.COOF (Nt,R(N),Z(N),UD(N),UZ(N) 

INPT 

30 

NL=L* 1 

INPT 

31 

IF  (N.FO.ll  GO  TO  70 

INPT 

32 

ZX=N-L 

INPT 

33 

DR*(R(N)-9(L))/ZX 

INPT 

34 

DZ* (Z (  N I  —  Z  (  L  ) 1/ZX 

INPT 

34 

70 

L*L  +  1 

INPT 

36 

IF(N-L)  100,90,80 

INPT 

37 

80 

COOF ( L ) *0 .0 

INPT 

38 

R ( L ) =R ( L-l ) ♦OR 

INPT 

3® 

Z(LI*Z(L-1)+0Z 

INPT 

40 

UR ( L ) *0,0 

INPT 

41 

UZ  (  L )  =0  .0 

INPT 

42 

GO  TO  70 

INPT 

43 

90 

I F ( NUMNP-NI  100,110,60 

INPT 

44 

100 

WR I TF  (6,2005)  N 

INPT 

45 

CALL  FXIT 

INPT 

46 

110 

WRITE  (6,20041  (  (K, CODF  (Kl  ,RIK(  ,Z  ( K  1  ,UP  (  K. )  ,UZ  1 K  )  )  ,K  =  1,NUMNP) 

INPT 

47 

c 

INPT 

48 

c 

or  AO  ANO  POINT  FLFMFNT  DATA 

INPT 

40 

c 

INPT 

50 

WRITE  (6,20061 

48 


i 

! 

| 


- - • . 


":'  — ■■■■^<^*^^-~ itfarnf  if\  (\  --*f~f *•  ■■“■•■  '••-  —  -"^•>  .W'l .*  >'-■■,.- ■•  va -). 


mmts 


■a 

5? 


INPT 
INPI 
INPT  S3 
INPT  56 
INPT  55 
INPT  56 
1NPT  5'/ 
INPT  6R 
1NPT  59 
INPT  60 
INPT  61 
INPI  62 
INPT  63 
INPI  65 
INPT  66 
INPT  66 
INPI  6,’ 
INPT  6fl 
NPT  69 
INPT  70 
INPT  71 
INPT  72  C 
INPT  73  C 
INPT  76  C 
INPT  75  C 
INPT  76 
INPT  77 
INPT  7B 
INPT  79 
INPT  BO 
INPT  81 
INPI  R2 
INPT  P3 
INPT  f< 6 
INPT  R6  C 


N  =  0 


no  RF  AO  (5,1006)  M,<  IX <M, I ), 1  =  1 ,5 ), I SIGI <M, I ) , 1  =  1,6) ,TH(M) 

IF  (TH(M).FO.O.)  TH(M)=1.0 
ZX=M-N 

IF  IN.RO.O)  00  TO  160 
DO  136  1=1,6 

135  SIC-I  1  )  =  <SIGI  <M,  I I-S1G1  IN,  I  >  l/ZX 
160  N*N  + 1 

IFIM.LF.N1  GO  TO  170 
IX(N, 11= IXIN-1, 1 )+l 
1XIN,2)=IX <N-1,2)*1 
1 X ( N ,3  I  =  1 X ( N-I ,31+1 
I X  I N ,6 1  =  I X  I N-I ,61*1 
1*<N,S)=1XIN-1,*> 

00  160  1=1,6 

160  sim in, i )=sic.i«N-i, n+sicti  i 

TH(N)=TH(N-1) 

170  IFIM.GT.N)  GO  TO  160 

IFINUMFL.GT.N)  GO  TO  130 

WRITE (6, 2007)  (IN, I1XIN, 11,1  =  1, 5), (SIGIIN, 11,1  =  1, 6), THIN)) ,N=1  ,NUK 
.  PL) 


INITIALIZATION  OF  UNBALANCED  STRCSSFS  AND  CUMULATIVE 
OISPLACFMFNTS 


TlO  1P6  N  =  1 , NIIMF L 
MT  A  M  N ) =0 
SIGIIN, 5)=0. 
SIGIIN, 61=0. 
SIGIIN, 7)=0. 

196  SKI  IN,  81=0. 

no  200  N= 1 , NUMNP 
ROI 2*N-1 ) =0  « 

200  BCI(  ?*N  1=0. 


INPT  R6  C 
INPT  R7  C 
INPT  HR 
INPT  P9 
INPT  90 
INPT  91 
INPT  «2 
INPT  93 
INPT  96 
INPT  95 
INPT  °6 
INPT  °7  C 
MPT  98  C 
INPT  uq  c 
1NPT100 


CALCULATE  MAXIMUM  HAN0-W10TH  FOR  THF  INCREMENTAL  SYSTFM 


J=o 

no  260  N= 1 , NUMEL 
00  250  1=1,6 
On  750  L=1 ,6 
KK= IAESI IX  IN , I )-IX (N,L) ) 
IFIKK.GT.J)  J=KK 
2 60  CONTINUF 

NBAND=2*J*2 

WR I TE I  6 , 3000 )  NBAND 


CALCULATE  RLOCKSIZF  CONSISTENT  WITH  AVAILABLE  CO^e 
NL=INTfiT—N  13*11/1  NP.  AN0*1 ) 
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. 


INP'IOI  NLl'NFU+3 

INF'  1 10?  IF (NL.GT.NLL )  NL=NLL 

I  NP  T 1 03  NL*NL/4 

1NPTI04  NL  =  4*NL 

I NP  T 1 0  «>  N14=NI3*NL 

INPT106  NB=2*NPAND 

INPTI07  NZ  =  NI  3*Nfi+NE*NPAND-l 

I  NP  T  10fl  WRITE  (6,4010)  NZ 

INPTIOO  IF (NZ .CT.NTOT)  CALL  EXIT 

INPT110  IF  (NL.L1.NE)  CALL  EXIT 

1NPT111  C  . 

INPTII2  C  .  READ  CONTROL  INFORMATION  FOR  THF *NF XT  *  ST F P ’ I N ’  1NCR EMFNT AL *  *  * 

INPT113  C  .  ANALYSIS 

INPT114  C  . . . 

INPT115  NC  A  SF  =  0  . 

I NP  T 1 1 6  IF(MCASE.NE.O)  NCASE=1 

INPT117  IF(MCASF.NE.O)  MCASF=I 

INPTllR  300  RE  AD (5*1  OOP!  TITLE 
INPT1I9  WRITF 16*2011)  TITLE 

INPT120  READ! 5, 1009)  NP MAX ,NfcL MAX ,NUMF R , NUMPC ,M T YPF , NCOOF ,NPM I S , 

1NPT121  .  NUMFRl.MTYPFl.KMORF, THICK 

I NP T 1 22  IF ( TH ICK.EO.O. )  THICK>1.0 

INPT123  IF(NUMFR.FQ.O)  00  TO  310 

I NP  T 1 24  RF  A  0(  5  *  1007 )  (NUMR(N),  N=  1 , NUMFR  ) 

I NP  T I  25  0  1  305  1  =  1  , NUMFR 

I NP T 126  NUM=NUMR  (  I  ) 

1NPTI77  TH ( NUM ) =  TH 1CK 

INPT12R  305  CONTINUE 

INPT129  310  IFINPMIS.rO. 0)  00  TO  320 

INPT130  RE  AO ( 5 , 1 007 )  (NNP(M),  M  =  1.NPM1S) 

INPT131  320  IF  (NUMFRl.FO.O)  00  TO  330 
I NP T I  32  R  E ADI  5 , 1 007 )  (  NUMR 1(N) ,N  =  1,NUMEP1) 

1NPTI33  C 

IFPT134  C  DETERMINE  BAND-WIDTH  FOR  THIS  STEP 

INPTI35  C 

INPT136  330  J*0 

1NPT137  IF(KMORF.NF.O)  GO  TO  342 

INPT13P  on  340  N  =  l.NELMAX 

INPTI39  DO  340  1=1,4 

I NP  T 14  0  DO  340  LX1 *  4 

INPT141  KK=IAPS( IX(N, ) )-IX(N,L> ) 

INPT142  IF(KK.GT.J)  J=KK 

INPTI43  340  CONTINUE 

I  NP  T 1 44  MRAND  =  2*J*2 

I NPT 14 5  ->42  IF(NPMIS.FQ.O)  00  TO  346 

) NPT 1 4o  DO  345  '  =  I,  NPMIS 

INPTI47  J=NNP ( I ) 

1NPT14P  BO ( 2* J- 1 ) =0  . 

I NP  T 1 4-  EO ( 2* J ) =0  . 

INPTI50  345  CONTINUE 


■  ■■  U  .  'iW' 


' '  --— fc«.'- w-*  WWU*  r*K*i  »,(,»«•  rn 


INPTI5I 
inptisz 
I NPT  I  *5  3 
INPTI54 
INPT155 
1  NPT IS 6 
INPTIS7 
1NPT16H 
INPT169 
INPTI 60 
1NPT161 
INPTI62 
I  NPT  163 
I NPT I  64 
INPT165 
INPT166 
1NPT167 
INPT16B 
1NPT169 
INPT170 
INPT171 
INPT172 
INPT173 
INPTI74 
1NPT175 
UP  T 176 
1NPT177 
1NPT17R 
INP1I 74 
inpiipo 

iNPimi 
I  NPT I  fl? 
INP11R3 
1NPT1P4 
INP1IRS 
INPT1R6 
INPT1R7 
INPT1RR 
INPT189 
I  NPT 190 
INPTI9I 
INPT19? 
INPT143 
INPT194 
INPTI9S 
I  NPT I  96 
INPTI97 
INPT14R 
INP1 194 
INP 1200 


PRINT  CONTROL  INFORMATION  FOR  THE  CURRENT  STFP  IN  I NCRFMFNTAL 
ANALYSIS 

346  IFINCOOF.FO.l )  GO  TO  410 
IF(NUMFR.FC.O)  GO  TO  3S1 

WR|TF(6,201?INCASF,  NPMAX  »NFLM AX  *NUMPC,NPMIS*MTYPc , 

.  INUMRIN1,N=1,NUMERI 

GO  10  3  52 

351  WR1TE(6,2012INCASE,NPMAX,NELMAX,NUMPC ,NPMIS,MTYPF 

352  IFINPMIS.FC.OI  GO  Tn  420 
HRITF(6,2014)  (NNP(M)  ,M  =  1.NPM1SI 
GO  TO  4?0 

410  IF(NUMFR.EO.O)  GO  TO  411 
WRITF(6,2013)NCASF,NPMAX,NELMAX,NUMPC,NPMIS,MTYPr , 

.  (NUMR (N ) »N=1 *NUMER I 

GO  TO  412 

41 1  WRITE (6  , 2013 1 NC ASE, NPMAX, NFLMAX,NUMPC,NPM I S.MTYPE 

412  lF(NPMIS.FQ.O)  GO  TO  420 
W11TFI6, 20141  (NNP(M)  ,M  =  l.NPMIS) 

420  CONTINUF 

IF  (NUMER 1  .EC .0  )  GO  TO  440 
WRITE  (6,201fl)  (NUMR1 (N)»N=1,NUMFR1  I 
WRITF  (6,2020)  MTYPFI 
440  IF  (KMORF.NF.O)  GO  TO  510 
WPITF  ( 6 , ?02S 1  MBANO 


RF AD  AND  PRINT  ROUNOARY  PPFSSURFS,  IF  ANY 

IF  (NUMPC.I C.O)  GO  TO  510 
WRITF  I6.200GI 
00  600  L  =  l  * NUMPC 

RF  A0( 5,1 OOS )  IPCILI ,JRC(LI,PR(L,1I,PR(L,2) 

600  WRITF (6, 20091  I  PC  I L )  , JBC I U , PR  I L,  1 ) , PR  I L ,7 1 
610  CONTINUE 

FOR  FLFMFMS  PFMOVFD  OR  NFWLY  ADDCD  IN  THIS  ST^P 
SFT  INITIAL  STRFSSES  EQUAL  TO  ZFRO 

IF  (NUMFR.FCj.OI  GO  TO  601 

on  600  1=1 ,NUMFP 

NUM  =  NUM° ( I  I 

I  X ( NUM ,5)=MTYPF 

SICIINUM, 11=0.0 

SIC  I (NUM, 2  I =0.0 

SIGIINUM, 31=0.0 

SIGI (NUM, 4) =0.0 

MTAC ( NUM ) =0 

600  CONTINUF 

601  IF  (NUMFPl.rO. 01  GO  TO  610 
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INPT20I  no  606  I*1,NUMFRI 

1NPI702  NUM=NUMR1!1) 

1NPT703  606  1X(NUM,5)=MTYPE1 

INPT204  610  IF  (KMURF.NF.O)  CO  TO  300 
1NPT205  C 

1NRT706  C  EVERY  ELEMENT  IS  ASSUMEfl  ELASTIC  AT  TUT  START  OF  EACH  STFP 

1NRT207  C 

1NPT206  S  R 1  =  1  •  0 

1NPT209  SR?*0.0 

INPT2I0  NPP=NP 

INPT21 I  IF  INCASE. LT.l)  NPP=I 

INPT212  CALL  SO LVE(P*Z, UP »U2*C0D£ ,80,  F ,RO,PR , S 1G I . TH, FR , A  A ( NI 3 1 , AA I  NT  4 1  * 

INPT213  *  1X,MTAC,  1 RC ,  JBC  ,NtJMR ,  NUMR  1 ,  NNP  1 

1NPT21 A  1FINCASF.. LF.NSTFPl  GO  TO  300 

INPT715  1001  FORMAT  IIIB.IFIO.O) 

1NPT2I6  1007  FORMAT  (6F10.0) 

INPT717  1006  FORMAT  1 A6 I 

1NPT210  1003  FORMAT  (  1 5  ,  FS  .0  ,4 F 10 .0) 

1NPT219  1004  F0RMAT!6I5,5F10 .0) 

INPT720  1005  FORMAT  (2I5.2F10.0) 

1NPT721  1007  F0PMATI1MSI 

INPT727  1008  FORMAT ( 1 8A4  1 
INPT723  1009  FORMAT! 1016, FIO. 01 

INPT224  2001  FOPMAT  I  1 7H0MATFR I AL  NUMPFR=  13,  15H,  MASS  DENS I TY=  F12.4) 

INPT225  2002  FORMAT  1 1 6H0FL ASTI C  MODULUS  14X  2HNU  8X  8HC0HFSI0N  2X  14HFRICTI0N  A 
1NPT276  .NGLF  2X  13HARFA  FOR  ONED  /l 2F 1 6 . 5 , 3F 1 6 . 5 1 1 

INPT227  7003  FORMAT  IllIHlNODAL  POINT  TYPE  X  OROINATF  Y  ORDINATF  X  LO 


INPT778  .AO  OR  0 1 SPLACFMFNT  Y  LOAD  0»  DISPLACFMFNT  PORF  PPFSSUPF  ) 

INPT22«  2004  FORMAT  (  1 12 ,F 1 2 . 2 , 2F 1 2 .3 , 2r 24 . 7) 

INPT230  2006  FORMAT  (26HONODAL  POINT  CARO  FRROR  N=  IS) 

INPT731  2006  FORMAT! 109H1ELFMCNT  NO.  I  J  K  L  MATERIAL  X~S 

INPT232  • TRFSS  Y-STRFSS  XY-STPFSS  Z-STPESS  THICKNFSS  ) 

INPT7? 3  7007  FORMAT! 117, 416, 1117, 5F12. 31 

1NPT734  7008  FORMAT  1 2°H0PPF  SSL'R  F  BOUNDARY  CONDITIONS/  40H  I  J  PRFSS 

INPT236  .UR  F  I  PRFSSURF  J  ) 

INP1236  2009  FORMAT  (2I6,2F12.31 

1NPT237  201’  FORMAT! 1H1  18A4////1 

INPT73H  20 "  7  FORMAT!  5IH0  RESULTS  AFTER  STFP  NO. -  15/ 

INPT739  .  58H0  TOTAL  NUMP.FR  OF  NODAL  POINTS  IN  SYSTFM  AT  THIS  STFP -  15/ 

INPT740  .  5PH0  TOTAL  NUMBER  CiF  ELEMENTS  IN  SYSTFM  AT  THIS  STFP -  15/ 

INRT241  .  5 8H0  TOTAL  NUMBFR  OF  PRFSSURF  CARDS  AT  THIS  STEP -  15/ 

INPT242  .  5 8 HO  TOTAL  NUMBER  OF  NODAL  POINTS  MISSING  AT  THIS  STEP -  15/ 

INPT243  .  5RH0  MATFRIAL  TYPF  OF  ELEMENTS  ADDFD/REMOVEO  IN  THIS  STEP -  15/ 

INPT244  .  58H0  ELFMFNTS  REMOVED  IN  THIS  STEP  ARF  -  / 

INPT745  .  (201511 

INPT246  2013  FOPMAT!  5IH0  RESULTS  AFTER  STEP  NO. -  15/ 

INPT247  .  58HO  TOTAL  NIJMHFR  OF  NODAL  POINTS  IN  SYSTEM  AT  THIS  STEP -  15/ 

INPT248  .  5BH0  TOTAL  NUMBER  OF  ELFMFNTS  IN  SYSTFM  AT  THIS  STFP -  15/ 

INPT249  .  5BH0  TOTAL  NUMBFP  OF  PRFSSURF  CARDS  AT  THIS  STFP -  15/ 

INPT750  .  56H0  TOTAL  NUMBER  nF  NODAL  POINTS  MISSING  AT  THIS  STFP -  15/ 
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INPT2M  .  4  8H0  MATFRIAL  TYPF  BF1NG  PUT  IN  THIS  STFP -  Is/ 

INPT252  .  5PMO  CLEMFNTS  ADDFO  IN  THIS  STFP  APF  -  / 

INPT253  .  I2PI SI  I 


INPT254  2014  FORMAT  (  53HO  NODAL  POINTS  RFMOVFD  OP  ADOFO  IN  THIS  STFp  ARF - 

INPT255  ./ ( 201 5 1  I 

INPT24R  201P  F0RMAT<Ifi,2FR.2,lP4L12.4,0PlFR.!>> 

1 NPT ?4 7  2017  FO°MAT 1110, 2F20. 71 

1NPT24R  2018  FOPMAT  (52HO  FLFMFNTS  FOR  WHICH  MATFRIAL  HAS  p.FFN  CHANC-FD  APT  — 
1NPT25R  ./ C  201 5  I  » 

1NPT2M)  2020  FORMAT  (54H0  NFW  MATFRIAL  TYPF  OF  THF  ABOVF  CHANGED  FLFMCNTS  I S — 
INPT26 1  .  I  5  I 

INPT26?  2028  FORMAT ( 27H  LAND  WIDTH  FOR  THIS  STFP  15) 

1NP  T2fc3  3000  F0RMAK//12H  BAND  WIDTH  |4) 

1NPT2P4  4010  FORMAT (  6SH  THE  MINIMUM  01MFNSI0N  OF  AA  ANO  NTOT  NFFOTO  FOR  THIS  P 
1NPT2AS  .ROPLFM  IS  110) 

INPT2AF  RFTURN 

INPT267  F  NO 


SULV 

tolv 

SOLV 

SJ1LV 

1 

2 

3 

4 

SUB»OUTINr  SOLVr  (0  ,Z.UR  lUZ.CriOF  ,B0,F,Pn,PO,SIGI.TH,FP  ,B,A,  IX, 

*  MTAG. IBC,JBC,NUMR,NUMK1,NNP) 

IMPLICIT  RFAL*8(A-H,0-2) 
fCMMnN/ TOTAL/  AA(3<innfli,  iA 170001 

SDLV 

5 

COMMON/ON^ /NUMNP. NUMFL  . NUMMA T , NUMPC  *  NPMAX  »NFLM AX. N, NNN , KKK # KLK  , 

smv 

6 

.  ISHIFT.MBAND.NBAND.NUMPLK.MTYPE.NCASF.MCASE.NMR  ,NL  ,NPP  ,NFQ ,NPC 

SOLV 

7 

.  .NP.NSTFP.NCODF 

SOLV 

0 

COMMON/TWO/RR  (5),2Z  (5),S(  10,10)  ,P(  10)  ,ST(3,10),r.(4,4)  ,SIG(7),FF(4) 

SOLV 

9 

.  , TITLF(lB),SRl,SR2,XC,YC,ACFLRf ACFLZ , BCFLR , BCFL Z , VOL 

SOLV 

10 

COMMON/ THR  FF /STOP ,MT0T,NT0T,N13,N14,MR 

SOLV 

11 

0IMFNS10N  P (NUMNP) ,2(NUMNP) ,UR (NUMNP) ,U2 (NUMNP) ,COOE (NUMNP ) , 

SOLV 

12 

.  RO(NEO) ,F (5.NUMMAT) ,R0( NUMMAT ) , PR (NPC  , 2 ) , S I G II NUMFL > 8 ) , 

S.JLv 

13 

.  TH 1 NUMFL ) * FR ( NUMFL ) . I X ( NUMrL .  5 ) ,MTAG( NUMFL) . 1BC (NPC ) , 

SCILV 

14 

.  JBCINPC  ) , NUMR ( NMR ) , NUMR1 f NMR ) ,NNP ( NMR ) 

SOLV 

15 

0 IMFNS 1  ON  B(NL) .A(NL.NBAND) 

SOLV 

SOLV 

16 

17  C 

DIMENSION  LM( 4 ) 

SOLV 

18 

DO  750  NNN= 1 , NPP 

SOLV 

19 

KKK=0 

SOLV 

20 

REWIND  2 

SOLV 

21 

ND*NL/2 

SOLV 

22 

NB=ND/2 

SOLV 

23 

STOP=0.0 

SOLV 

24 

NUMBLK=0 

SOLV 

25 

DO  50  N=1,NL 

SOLV 

26 

B(N)=0.0 

SOLV 

27 

DO  50  M= 1 jMPAND 

SOLV 

28 

50 

A(N,M)=0.0 

SOLV 

29 

IF(NCASF.CT.MCASF)  GO  TO  51 

SOLV 

30 

IF  (NNN.GT.l)  GO  TO  51 

SOLV 

31 

BC1LR  =ACFLR 

SOLV 

32 

BCFLZ  =ACFLZ 

SOLV 

33 

51 

CONTINUF 

SOLV 

34 

IF  (NNN.GT.11  GO  TO  52 

SOLV 

35 

ACFLP  =BCFLP 

SOLV 

36 

ACFLZ  =BCE  LZ 

SOL  V 

37 

GO  TO  55 

SOLV 

38 

52 

ACFLR  =0.0 

SOLV 

39 

ACFLZ  =0.0 

SOLV 

40 

NUMPC  =0 

SOLV 

41 

55 

CONTINUF 

SOLV 

42 

60 

NUMBLK=NUMRLK+1 

SOLV 

43 

NH=NB* (NUMBLK+1 ) 

SOLV 

44 

NM=NH-NB 

SOLV 

45 

NS=NM— NB+1 

SOLV 

46 

KSHIFT=2*NS-2 

SOLV 

47 

DO  210  N=1,NELMAX 

SOLV 

48 

IF (  IX ( N , 5 ) . LF .0 )  GO  10  210 

SOLV 

4Q 

MTYPF* 1 X ( N, 5 ) 

SOLV 

50 

IF  (RO(MTYPF)  .FC'.O.  )  GO  TO  210 

solv  s  i  no  no  1*1,  a 

SOLV  62  IF(1X(N,I).LT.NSI  Gf)  TO  RO 

SOLV  53  IF(IX(N,l).Lf. NM )  GO  TO  90 

SOLV  64  HO  COM  1  NUF 
SOLV  56  GO  TO  210 

SOLV  bb  90  IF(  IX(N,?1  .NF  .  |X(\',21  )  CO  10  99 

SPIV  r'7  CALL  ONEO  ( 15 ,  Z  ,  U°  , UZ  »COOF  ,R0  ,F  *RO,PR,SICI  »TH*Fp,Ix»MTAG» 

SOLV  5P  *  IPC,jnC,NUMP,NUMPl,NNP) 

SOLV  99  IX(N,5)=-IX(N,5) 

SOLV  60  MM=2 

SOLV  61  GO  10  130 

SOLV  62  99  CALL  OUAO  ( P  ,  Z  , UR  , UZ  ,  CODE  ,80, F.  ,9 0,  PR  ,  S I G I  ,  TH , FR  ,  I  X  ,  MT  AG , 

SOLV  63  *  IPCtJBC,  NUMP  »NUMP 1 » NNP ) 

SOLV  64  IX(N,5)=-1X(N,5) 

SOLV  65  IF  (VOL, GT. 0.1  GO  TO  110 

SOLV  66  W9 I T F ( 6 , 2000 )  N 

SCLV  67  STOP* I  .0 

SOLV  68  HO  MM=4 

SOLV  69  IF  ( 1X1N.31 .FQ. IX  (N,4)  )  MM=3 

SOLV  70  130  00  140  1=1, MM 

SOLV  71  140  LM( II=2*IX(N, 1 1-2 

SOLV  72  DO  200  1=1, CM 

SOLV  73  DO  200  K=l,2 

SOLV  74  11= LMII1+K-K SHIFT 

SOLV  75  KK  =2* 1 -2+K 

SOLV  76  H( II)=B(II)+P(KK1 

SOLV  77  DO  200  J=1,MM 

SOLV  78  DO  200  L=l,2 

SOLV  79  JJ=LM(J)+L-11+1-K SHIFT 

SOL«  no  LL=2*J-2+L 

SOLV  81  IF(JJ.LE.O)  GO  TO  200 

SOLV  82  A(  |  1 ,  J J  I  =  A  (  II  ,JJI*S(KK,LLI*TH(MI 

SOLV  P 3  200  CONTINUE 

SOLV  04  210  CONI  1 NUF 

SOLV  P 5  DO  220  N=NS,NM 

SOLV  86  IF  (N.GT.NPMAX)  GO  TO  220 

SOLV  87  K=2*N-K SHIFT 

U  .J  PP  8(KI=B(K)+UZ(NI 

SOlV  89  P(K-1)=P(K-1)+UR(NI 

SOLV  90  220  CONTI NUF 

SOLV  91  C 

SOLV  92  IF  (NUMPC.EO.OI  GO  TO  310 

rOLV  93  DP  300  L=1.NUMPC 

SOLV  94  1=  IbC  ID 

Sf'LV  95  J=JHC(L) 

SOLV  96  OR  =  Z ( I  1-2 ( J1 

SOLV  97  0Z=9( J)-P ( 1 ) 

SOLV  98  PP2  =  (PR(L,2)+PR(L,1  )  1/6. 

SOLV  99  PP1=PP2+PP(L,I 1/6. 

SOLV 1 00  PP2=PP2+PP(L,2)/6. 
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SULV101 
SOL V 10? 
SHLV103 
SPLV104 
SOL V 1 05 
S0LV106 
S0LV107 

soLvioe 

SOLV109 
SOLV110 
S0LVU1 
S0LV11? 
SOL VI 13 
SOL VI 1 4 
S0LV11S 
S0LV116 
SC/LV117 
S0LV11 fl 
SOL V 1 1 9 
SOLVI ?0 
SDLV121 
SOLVI?? 
SOLV 1?3 
SOLV124 
SOLV 1?S 
S0LV1?6 
SOL VI 27 
S0LV128 
S0LV129 
SOLV130 
T0LV131 
S0LV13? 
SOLV133 
SOLVI 34 
SOLVI 3  5 
SOL VI 36 
SOLV137 
SOLV 13  P 
S0LV139 
S0LV140 
SOL V 14 1 
SOLV 14? 
S0LV143 
S0LV144 
S0LV14S 
SOLVI 46 
S0LV147 
S0LV14R 
S0LV149 


SOLVI SO  C 


1 1  =  ?*  I-KSH  *  F  r 
JJE?* J-KSHI FT 

IFI(lI.LE.O).nR.(U.C.T.NOM  GO  TO  ?65 
B< I I-1)=R( I I-1I+PP1*0R 
Pill) (11 ) 4PP1 *DZ 

?65  IF  ( ( J  J.LF  .0)  .OP. .  (  JJ.GT  .NO  1 1  GO  TO  300 
B ( JJ-1 )=B< JJ-1 ) +PP2+0R 
EM  JJ)=8(JJ)+PP?*0Z 
300  CONTINUE 
310  00  400  M=NS,NH 

IFIM.GT.NPMAX )  GO  TO  400 
U=UR(M) 

N=?*M-1-KSMIPT 
IF  (CODF (HI )  390,400,316 
*16  IF ( CODE (M) • E0« 1 .  )  GO  TO  370 
1FIC00FIH) .E0.2.I  GO  TO  390 
IF  (CODF (Ml —3 • )  390 , 3P0 , 3 90 
370  CALL  MOniFY(A,P,NL  ,MPAN0,NP4Nn,N,U) 

GO  ro  400 

380  CALL  MnO I FY( A, B ,NL  ,MUANO 5NBANP,N,U) 

390  U*IJZ(M> 

N=N+1 

CALL  MOO  I FV ( A ,8 ,NL  ,MB ANO , NPANO, N,U) 

400  CONTINUE 

WRITF  (?)  ( PIN) ,( A(N,M) ,M=1 ,MBANR) ,N 
00  420  N=1,N0 
X=N+NO 
BLN)  —  BIK) 

R ( K ) =0 .0 

00  4?0  M  =  1 , MRAND 
A(N,M)=A(K,M) 

420  A(K,M)=0.0 

IFINM.LT. NPMAX)  GO  TC  60 
LF  (STOP.NE.O.)  CALL  FX1T 
00  600  N= 1 , NUMNP 
UZ ( N) =0  , 

600  UR ( N) *0. 

N1S*N14+?*NUMNP 

N16EN15*4*NUMt-L 

N17xN16+NUMFL 

CALL  PANStJL  INI  , NPANO, MfiAND,NI)MPLK  ,8, A) 

CALL  STRESS  (R,Z,UR,UZ ,COOF  ,B0,F,P0,PR,SIGI»TH,FP,B,AA|N15), 
*  AA  ( N 16  )  ,  A  A  (N17),  I  X,MTAG,  IRC,  JPC,NUMR  ,NIIMR1  ,NNP) 

DO  700  N*l, NPMAX 
NN~?*N 

BOINN-1 )=R0(NN-1 )+P (NN-1 ) 

700  PO ( NN ) EP0 ( NN ) ♦B ( NN ) 

PRINT  OUT  CUMULATIVE  DISPLACEMENTS 
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■i  im 


i  m 


SULVISI  WR I  I F  ( 6»  2002  HN  «80< 2*N-1 » ,R0(2*N) ,N=1 »NUMNP I 

SOLV1S/  IFIKLK.FC.il  GO  TO  750 

50LV153  IFUKKK.E0.01.nR.ISR2.Gt. 1.11  GO  TO  ROO 

rnLV154  750  CONTINUE 

SCLV155  000  IFINUMER.GT.Ol  GO  TO  850 

SOL VI 56  IFINCASF.GT.O)  GO  TO  850 

S0LV15R  C  IF  INITIAL  STRESSES  ARE  FVALUATFO  IN  THIS  STFP  INITIALIZE  BO 
S0LVI59  C 

S0LV160  00  010  N*1,NEQ 

S0LV16I  810  PO(NI*0. 

S0LVI62  050  NCASE=NCASf ♦! 

S0LV163  DO  900  N«1»NFLMAX 

SOI, VI 69  900  IF(FRIN)  .GT.l.l  FR(N»=1, 

S0LV165  RETURN 

50LVI66  1000  FORMAT  ( 1H1 ,90X , • LOAD  M AT R I  X  •  / ( 10E 1 3 .9 )) 

S0LV167  2000  FORMAT  ( 26H0NFGAT I VF  AREA  ELEMENT  NO.  191 

S0LV160  2002  FORMAT ( 1 2H1  N.P  NUMBER  1RX  2HUX  IPX  2HUY  / ( 1 1 2 , 2F 20  .7 1  I 

S0LV169  FNO 
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ONFn  1  SUBROUTINE  ONFO  (  R  ,  2 ,  U<>  ,UZ,  CUDF  ,  BO,  F  ,R0  ,P<>  ,  SI  GI  ,  TH,  F»  ,  1 X ,  MT  AG , 

ONFn  2  *  IBC,JBC,NUMR,NUMR1,NNP) 

ONFD  3  IMPLICIT  PFAL*6(A-H,0-Z) 

ONTO  4  COMMON/ TOT AL/  AAI30000),  14(7000) 

ONTO  5  COMMON/ONF/NUMNP,NUMFL,NUMMAT,NUMPC,NPMAX,NFLMAX,N,NNN,KKK,KLK, 

ONFO  6  .  1SEUFT,MRANO,NPANO,NUMM.K,MTYPE,NCASF,MCASE,NMR,NL,NPP,NEQ,NPC 

ONEO  7  .  ,NP,NSTFP,NCOOF 

ONFD  B  COMMON/TWO/RR (5) ,27 (5) ,S<  10,10) ,P(  10 )  ,ST(  3 , 1 01  ,C  ( 4,4  J  ,  S  If,  ( 71  ,  EE  ( 4 1 

ONFn  9  .  ,TITLM18),SBl,SB2,XC,YC,ACFLR,ACFLZ,BCFLR,f»CFLZ,V0L 

own  in  common/thref/stop,mtot ,ntot»ni3*ni4,mr 

nNFn  11  DIMENSION  R I NUMNP ) , 2 ( NUMNP ) ,UP I NUMNP ) ,UZ ( NUMNP 1 , COOF | NUMNP )  , 

ONFn  1?  .  D0( NFQ )  , F  (  5  , NUMMA  T)  ,  POI  NUMMAT  )  ,PR  ( NPC  ,  2  ) ,  S I  Gl  ( NUMEl , 8  )  , 

ONFO  13  .  TH(NUMEL),FR(NUMFL),IXINUMFL,5),MTAG(NUMFL),IBC(NPC), 

ONcn  14  .  J8CINPC  I ,NUMR ( NMR I ,NUMR 1 1 NMR ) , NNP ( NMR ) 

ONFD  15  C 

nNFn  16  no  mo  i=i,4 

ONEn  17  P( I  1  =  0.0 

ONFD  lb  m  100  J  =  r  ,0 

ONFO  lo  loo  S(  I  ,J  )  =  0.0 
ONFD  20  MTYPF* I  X  I N , 5 ) 

ONFD  21  1= I  X ( N  ,  1  ) 

ONFO  2?  J=IX(N»2> 

nNFn  23  nx=p(  j)-RM  ) 

ONFn  24  HY  =  Z( JI-2II  ) 

ONFn  25  XL=nc.ORTinx*Y2  +  OYA*2) 

ONFn  26  COSA=DX/XL 

CiNFD  27  $INA=DY/XL 

ONEO  28  COMM=  F ( 1 , MTYPF ) *F ( 5 ,MT YP F  )  /XL 

ONFD  2°  S(1,1)=COSA*COSA*COMM 

ONFD  30  S< 1 ,2)=CD5A*SINA*COMM 

ONFO  31  S( 1,3)=-S( 1,1) 

ONFD  32  SI  1 ,4 )  =  -S (1,2) 

ONFD  33  S(2,1)=S(1,2) 

ONFO  34  S(2,2)=SINA*SINA*COMM 

ONFD  35  S ( 2  ,3 )  =  -S ( 1 ,?  ) 

ONFD  36  S(?,4)=-S(2,2) 

ONFO  37  S(?,1)=SI1,3) 

ONin  38  S(3,2)*S(2,3) 

ONEO  39  SI  3  *3  )  *S  ( 1 , 1 ) 

ONFO  40  S(3,4)=S( 1,2) 

ONin  41  S(4,1)=S(I,4) 

ONFD  42  S(4,2)=S(2,4) 

ONFO  43  S(4,?)=S(3,4) 

ONFD  44  S(4,4)=S(2,2) 

ONFO  45  11=4 

ONFD  46  IFINNN.FC.l)  I  1=0 

ONFD  47  FP=SIG1(N,II*1)/F(1,MTYPE) 

oned  4p  nx=nx*FP 

ONFD  49  DY=DY*FP 

ONEO  50  PI  1 )  =  Sfl,l )*DX+SI 1,2)*DY 
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ONEO  •>  1  P(?)»S<2.1)*OX*S<2.2)*DY 

ONED  52  P( 3)  “-P ( 1 ) 

ONFD  53  P(4)«-P<2) 

ONFO  54  RFTURN 

ClMFO  55  'NO 


UU/n  1  SUBROUTINE  OUAD  (  R  ,  Z ,  UR  ,UZ  ,CDDF  ,  BD,  E  ,RO  ,PR  ,  S  ]  G 1 ,  TH ,  FR  ,  1 X ,  M  TAG  , 

OUAO  2  ♦  lRCtJRC*  NtJM°  ( NUMR 1  »NNP  1 

QUAD  3  IMPLICIT  RFAL*8 ( A— H,D-Z  ) 

OUAD  4  COMMON/ TOT AL/  AA130O00),  IA17000) 

OUAO  5  CDMMON/DNF /NUMNP, NUMF L, NUMMA T,NUMPC,NPMAX,NFLM AX,  N,NNN,KKK,KLK, 

tUAO  0  .  1SH1FT,MRAND,NBAND,NUMBLK,MTYPE,NCASF,MCASF ,NMR.  ,NL  ,NPP  ,NFQ  ,NPC 

OUAO  7  .  ,NP  »NSTf  P  tNCOOF 

OUAO  B  COMMDN/Twn/PB ( 5 ) »  2  Z 1 5 1  *  SI  10 ,1D 1 »P( 10) ,ST( 3  » 10) *C 14,4 1  *  S IG( 7 1 *FF1 41 

OUAO  o  .  ,T 1TLE1 1B» ,SR1 ,rR2,XC,YC, ArELR,AfFLZ,BCFLR,BCFLZ,VDL 

OUAO  10  CDMMDN/THRF  F /jTOP,MTOT ,NT(17,N13,N14,Mfi 

OUAO  11  DIMENSION  R (NUMNP 1 , Z ( NU MN P ) , UR (NUMNP ) ,UZ ( NUMNP ) ,CODF ( NUMNP ) , 

OUAO  1?  .  80(NFQ),E<5,NUMMAT),PD<NUMMAT),PP(NPC  , 2 ) , SI G 1 ( NUMFL , 8 ) , 

OUAD  13  .  TH ( NUMFL ) * FR ( NUMFL ) , 1 XI NUMFL  » 5 1 ,MTAG ( NUMFL 1 » 1 BC  ( NPC ) « 

OUAO  14  .  JBC1NPC  ) ,NUMR (NMR I.NUMRl l  NMR 1 , NNP ( NMR 1 

OUAD  15  DIMENSION  LM ( 4 ) ,U< 3 ) , V< 3 ) 

OUAO  16  C 

OUAO  17  CALL  STPSTR  < R , Z , UP ,UZ , CODE .RD  ,  F ,RD , PR , S 1 G 1 , TH , FR , 1 X , MT AG , 

OUAD  18  *  18C,  JBC, NUMR, NUM*1  1, NNP) 

OllAO  10  DO  130  J=l,10 

OUAO  20  P(J)=0. 

OUAD  21  DO  120  1=1,3 

OUAD  2?  l?n  ST ( 1 , J ) =0. 

OUAO  23  DO  130  1=1,10 

OUAD  24  130  S( I ,J)=0. 

OUAO  25  DO  140  1=1,4 

OUAD  26  NPN* IX I M , 1 1 

QUAD  27  RR( 1 1 *P ( NPN 1 

OUAD  28  140  ZZ  (  1  I *Z ( NPN 1 

OUAO  2«  XC=(RP ( 1 l+PP (2)+RP(3)  +  PP(4l  1/4. 

OUAD  30  YC  =  (ZZ( 1 1 +Z  Z  (  2 1 +7  Z  (  3 1  ♦  Z  Z 1 4  > ) /4  . 

OUAD  31  RR(5)=XC 

QUAD  32  ZZ ( 5 ) =YC 

OUAO  33  K=5 

OUAD  34  J=1 

QUAD  35  1=4 

OUAD  36  LM(  3  1  =t* 

QUAD  37  NT=4 

OUAD  3P  1 F  t  1 X  ( N  ,  3 1  .  NF  .  1 X ( N ,  4 1 1  CD  TO  160 

OUAD  39  NT»  1 

QUAD  40  LM ( 3 1 =P 

OUAD  41  1=1 

OUAD  42  K  =  3 

QUAD  43  J=2 

QUAD  44  XC=(RR( 11+RR121+RP I  3) 1/3. 

OUAD  45  YC=(ZZ(ll*ZZ(2)+ZZ(31)/3. 

OUAD  46  RP ( 5 1 =°P ( 3 | 

OUAD  47  ZZ ( 5)  =  Z Z ( 3) 

OUAD  4B  160  DO  200  NN=1 ,NT 
OUAD  49  LM ( 1 1 =2* 1-1 

OUAD  50  LM( 21 =2* J-l 


OUAO 

61 

U(I  )*ZZ<JI-27<Kt 

OUAO 

6 7 

UC  ? I=Z  Z (K  »-Z  Z  C  I  ( 

QUAD 

6? 

U<3»  =  ZZ  C I )-Z7 (  J ) 

OUAO 

69 

VI 1 )=RR I K 1— R° 1  J ) 

OL'AD 

56 

V(  7 l=RR ( 1 l-RR IK  I 

OUAD 

6/, 

V  (  3 ) =R  0 ( J ) -R9 (  I  1 

ouad 

67 

A»F  t=(PP  <  j>9U(2)  +  09  <  1  )*um+RO(6)*U(3))/2. 

aun 

68 

VOL=VOL+AREA*TH(N) 

OUAC) 

69 

COMMr . ?6/ AR  f  A 

OUAO 

60 

XNT=NT 

quad 

61 

C0M*2.0/XNT 

quad 

6? 

COM=C()M*COMM 

quad 

63 

nX=ARrA*TH(NI*R0(MTYPF)/3. 

ouao 

69 

dy=dx*acflz 

OUAD 

65 

DX=DX*ACFUR 

OUAD 

66 

DO  ISO  L  =  1 , 3 

OUAD 

67 

1I=LM(L) 

OUAD 

68 

sm,i  n=r,ri  i,  i  n  ♦u(u*com 

OUAD 

69 

5TI2,!I  +  l>  =  ST(2,II  +  l)+V(U*f.0M 

OUAD 

70 

ST  I  3, 1  1  1  =£  T  ( 3 , 1 I)+V(L)*COM 

OUAD 

71 

ST(3,II+1)=ST(3,I I  +  l  )+U<L)*COM 

OUAD 

72 

Pill ) *  P ( 1 1 ) +DX 

OUAD 

73 

pm+n=p(  li  +  n+DY 

OUAD 

79 

DO  180  M=l,3 

OUAD 

76 

JJ=LM(M) 

OUAD 

76 

SI  I J  *JJ)=S(  II  ,JJI+IUIL)*C<1  «I)*U(M)«V(U  ♦C13.3I  *VlfM+V(U*CI  1,3»*U 

OUAD 

77 

.  (  M  l+UIL  l*C  ( l,3l*V(MI)*Ct'MM 

OUAD 

78 

SI  1  1 ,  JJ  +  1 1  =  S  ( I  I  ,JJ+1)  +  IUIL)*CI  1,21  ♦V(M>*V|l)  *C I  3 * 3 >  *ll(  M )YV( L  ) *CI  2, 

OUAD 

79 

.3)*V(M>+Ulll*C(lt3l*U(MI>*C0f*f* 

IUAD 

80 

SI  I 1  +  1, JJ  +  1 I  =  S I II*l,JJ+ll  +  (V(l)*C(2,?)*V(MI+UIU*C(  3,3)*U(M)+U(L>* 

OUAD 

fll 

.C(2,3)9VlM)+V(L|YC(7i3)^UIM))*CnMM 

OUAD 

82 

SI JJ+1, 1 I l  =  S(  I I ,JJ+I> 

OUAD 

83 

180 

CONTI NUF 

OUAD 

89 

I=J 

OUAD 

86 

J  =  J+I 

OUAD 

86 

700 

CONTI NUF 

OUAD 

87 

IFI  IXIN.3I .I0.IX(N,9| )  CD  TD  ?5n 

OUAD 

88 

DO  74D  1*1,2 

OUAD 

89 

KK*ID-I 

OUAD 

90 

DO  290  K=1 , KK 

OUAD 

91 

CC=S(KK+I ,K I  /  S  ( K  K  + 1 ,KK+I) 

UUAO 

9? 

P(KI*P(KJ-CC*P(KK+I ) 

OUAD 

"3 

nn  230  j* i ,  3 

OUAD 

99 

73D 

STI J,KI=ST( J,K)-cr*ST( J,KK+I ) 

CHAD 

95 

no  290  J= I , KK 

OUAO 

96 

290 

S(J,Kl=S(J»K)-CC*S(J,KK+l  1 

OUAD 

97 

250 

CONTINUF 

OUAD 

°8 

11=0 

OUAD 

99 

IF  (NNN.GT.l)  11=9 

OUADIOO 

SIGH  )*-$IGI  IN,  I  1  +  1  I 

61 


CUA0101  rif-(?l=-SIGIIN, 11*21 

CiUAmo?  sli.m=-Sl(.l(NtIl*3» 

UUAH103  no  r>?o  i«-i,h 

uuaoipa  on  *510  J*1 ,3 

UUA0106  <ilO  f*l  ll*PI  II+STIJ, 11*^1  f. IJ(* VOL 

OUAOIOA  *>20  rONTINUF 

IA'AD107  RETURN 

QUA010P  ENO 
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STST  1  SUPPOUTINF  S  r  RS  TP  (P,Z,UP,1JZ,C0DF,B0,F,R0,PR,S)G),TM,FP,IX,MTA0, 

STST  2  ♦  )BC,JBC,NUMR,NUMRl,NNP> 

STST  3  ) MPL (C ) T  RF  AL*  R ( A-M ,0-Z  ) 

ST ST  4  COMMON/ 70T AL/  AAI 30000),  lA(TOOO) 

STST  S  COMMON/ONF /NUMNP ,NUMEL ,NUMMAT ,NUMPC , NPMAX ,NFLMAX , N, NNN, KKK , XL* , 

STST  6  .  )SHIFT,MPAND,NB  AND  ,  NtlMBLX*MTYPF»NCASc*MCASF,NMR,NL*NPP,NrQ,NPf 

ST  ST  7  .  ,NP,NSTFP,NCOFIF 

STST  H  COMMON/TWO/RR<6l,ZZ(5l,St 10 , 10 ) ,  P  (  10 )  , ST  <  3 , 10 )  ,C  1 4 , 4 )  ,  S  1G <  7 )  , FF  ( 4  ) 

STST  V  .  ,T)TLf ( lfl), SRI , SR2 , XC , YC , AC ELR , ACFLZ , BCF LR , RC F LZ , VOL 

STST  10  COMMON/ THP  FF/ STOP,MTOT  fNTOT ,N13*N14*MR 

STST  11  OIMFNS)ON  R  ( NUMNP  ),  Z  ( NUMNP  )  ,U<»  ( NUMNP  )  ,UZ  I NUMNP )  ,COOE  I  NUMNP  (  , 

CTST  12  .  R0( NC  0) ,  E  I 5  ,NUMM AT ) , RO ( NUMMAT ) , PP ( NPC  ,2), SIGH NUMFL ,8  )  , 

STST  13  .  TH I NUMFL) ,  FRI  NUMFL ) , 1 XI NUMFL , 5) , MT AG C NUMFL) , ) PC  I NPC ) , 

STST  1A  .  JRCINPC  ) ,NUMR I NMR I , NUMR 1 (NMR ) , NNP ( NMR ) 

STST  15  C 

STST  16  MTYPF«=)X(N,5) 

STST  17  VOL  =0 « 

STST  IB  OF  50  KK=1,4 

STST  19  50  FE(KK)=F(KK,MTYPF) 

STST  20  )  F I (NCASE.GT.l) .AND.(NNN.fO.l) )  GO  TO  60 

SI  ST  21  IF(MTAGCN) .GT .0)  GO  TO  70 

STST  2?  60  CC=FF(2I/(1.-FF(2I) 

STST  23  BP  =  FFU)/C1.-FF(2>**2) 

STST  2 A  COMM=BP/( l.-CC**2) 

STST  25  C(1,1)=C0MM 

STST  26  C ( 1 ,2 ) =CUMM*CC 

STST  27  C<1,3>=0. 

STST  2 H  C ( 1 ,4 ) =0 . 

STST  29  C I  2 , 1 ) =C I  1,2) 

STST  30  C  (  2  ,2  )  =C  (  1 ,  1 1 

STST  31  C ( 7 ,3 1 =0. 

STST  32  C(2,4)=0. 

STST  33  C ( 3 , 1 ) =0. 

STST  3 A  C ( 3 ,2 ) =0. 

STST  35  C(3,3)*.5»COMM*ll.-CCI 

STST  36  0(3,4)®  0. 

STST  37  C(4,l)=  C (  1,2) 

S1ST  3R  CIA, 21=  Cl  1,21 

STST  39  CIA, 31=  0. 

STST  AO  C ( A , A ) =  0. 

STST  A 1  CC=  ?,*DS)N(FF(A)/57.29b) 

STST  A 2  PR=  1.732*<3.-0SlN(EF(4)/57.2°6> ) 

STST  A3  PP=6.*OCOS(FF(4)/57,296) 

STST  AA  FE(A)=CC/RR 

STST  A 5  FF I  3 1 =  FF(3»*PP/RP 

STST  A6  GO  TO  500 

STST  A7  70  CC=  ?.*DSIN(rr(A»/57.296) 

STST  AR  RP=  1.732*(3.-0SIf'(EE(A)/57.2°fc)  ) 

STST  A 9  PP  =  6.*nC0SIF<-(4)/57.296) 

STST  50  FFI4MCC/PP 
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8. 


STST 

SI 

STST 

5  2 

STST 

S3 

STST 

54 

STST 

55 

STST 

5  A 

STST 

57 

STST 

58 

STST 

59 

STST 

AO 

STST 

61 

STST 

6? 

STST 

A3 

STST 

64 

STST 

65 

STST 

AA 

STST 

67 

STST 

6B 

STST 

69 

STST 

70 

STST 

71 

STST 

72 

STST 

73 

STST 

74 

STST 

75 

STST 

76 

STST 

77 

STST 

7B 

STST 

79 

STST 

60 

STST 

81 

STST 

82 

STST 

83 

STST 

84 

FF(?)»  FC  (3  )  *PP/FiB 
CC=2.*Cl.*FF(2))/C3.-6.*FF(?t) 

00=SIGHN,I)-SIGICN,2) 

FF  =  SIC  I(N,1)-SIGHN,4) 

GG-SIGl  (N,2)-S1GI  (N,4) 

RJ2=  (DD*»2+FF**2+GG*‘»21/6.  +  S  1G  1  ( N,  3  !  **? 

RJ2*0S0RT(BJ2) 

BJ1=SIGI(N,1)*SIGI <N,2)+SIGI(N,4) 

00=BJ1/BJ2 

HP,  =  1.  +  9.*(F£(4)**2)*CC 
CC  =  3.*FF  <4)*CC-DD/3. 

0D=  FF ( 4 ) -0D/6 . 

H1=.5*CC/(BB*PJ2) 

H?=D0*CC/RR-FF(2)*FF(3 ) /(BB*BJ?*( l.-?.*FF(2)  )  ) 

H3=.5/(BR*BJ2*BJ2) 

BB=FFtl)/(l.*FF(2») 

C( 1| 1 ) =BR*(1.-H2-2.*H1*SIGI (N, 1 ) -H3* ( SIGI (N, 1 ) **2 ) ) 

C( 1,2)=-BB*(H2+H1*(SIGI(N, ll+SIGI (N,2))+H3*SIGI(N,1 )*SIGI(N,2) ) 
C(1,3)=-BB*(H1*SIGI <N,3)+H3*S1GI(N,1 )*SIGI(Nt3) ) 

C<1,4)»0. 

C(2,l)=C(l,2i 

C(2«2)3=RB*(1  •-H2-2  •*H1*SIGI(N»2)  -H3*  ( SIG1(N»2)**2)) 
C(2,3)=-BB*(H1*SIG1  (N,3)+H3*Sir-l  iN,2)*SIGI(N,3)) 

C(2,4)=0. 

C ( 3 , 1 )=C(lt3) 

C(3,2)=C(2,3) 

C(3,3)=BB*(.5-H3*|£IG!(M,3)**2)  ) 

C ( 3  *  4 ) =0 • 

C  (4 ,1 1  =-BP  *(H2+H1*S  IG  J  (N*11+H1*SIGI  t  N t4 ) +H3*S IG I  (N,ll*SIGI(N,4t) 
C(4i?)=-BP*(H2+H1*SIGI <N,2)+Hl*SIGIfN,4)+H3*SIGI(N,2)*SIGI(N,4)) 
C(4,3)=-BR*(H1*SIGI (N,  3 ) +H3*S I G I ( N ,3 )  +  S IG I CN,4() 

C(4,4)=0. 

500  RFTURN 
END 
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modi 

1 

SUBROUTINE  MODIFY!*, B,NL  ,MF*ND,NB*ND,N,U) 

modi 

7 

IMPLICIT  RFAL*P|A-H  ,0-Z) 

HOD  I 

3 

DIMENSION  B(NL) ,A(NL,NBAND) 

MODI 

4  C 

MODI 

5 

DC1  250  M=2,MBAND 

HOD  I 

6 

K=N-H»1 

MCiOl 

7 

IFIK.LF..O)  GO  TO  235 

MODI 

P 

B(K)*B<K)-A(K,MI*U 

MODI 

9 

A  ( K  ,H )  =  0  .0 

MODI 

in 

235 

K=M+M-1 

MODI 

it 

I F (NL  . LT.K )  GO  TO  250 

MODI 

12 

P(K)=B<KI-A<N,MI*U 

MCO 1 

13 

A ( N,M 1=0.0 

MODI 

14 

750 

CONTINUE 

MODI 

15 

ACM, 11*1.0 

MODI 

I* 

P!N)*U 

MODI 

17 

RETURN 

MODI 

1H 

f  ND 

65 


PANS  1  SUBROUTINE  BANSOL  ( NO , ND AND ,MM .NUMBLK , e , A ) 

HANS  2  IMPLICIT  RFAL*8(A-H,0-Z) 

BANS  J  DIMENSION  B(ND)tA(Nn*NBAND) 

FANS  A  C 

FANS  5  NN=NO/2 

BANS  6  NL=NN+1 

HANS  7  NH=NN+NN 

FANS  P  REWIND  I 

HANS  S'  REWIND  2 

FANS  10  NP  =  0 

PANS  11  GO  TO  ISO 

PANS  12  100  NB=NP+1 

HANS  13  00  125  N=1,NN 

HANS  14  NM=NN+N 

PANS  15  P(N)=B(NM) 

FANS  16  P(NM)=0.0 

BANS  17  00  125  M=1,MM 

FANS  IP  A(N,M)=A(NM,M) 

PANS  19  125  A  (  NM  f  M ) =0 .0 

PANS  20  I F ( NUMBLK • t  O.NP )  GO  TO  200 

PANS  21  150  RF AD  (21  ( 8 ( N 1 , ( A ( N , M ) , M=1 , MM  1  ,N  =  NL * NH ) 

FANS  22  IF(NB.EO.O)  GfJ  TO  100 

BANS  23  200  00  300  N=1,NN 

BANS  24  IF< A(N, I ) .EO.O. )  GO  TO  300 

BANS  25  P(N)=B(N)/A(N,1) 

BANS  26  DO  275  L-2tMM 

BANS  27  IF  (A(N,L)  .Fti.O.)  GO  TO  275 

(ANS  28  C=A(N,L)/A(N,1) 

BANS  29  I =N+L-1 

PANS  30  J=0 

PANS  31  00  250  K=LtMM 

PANS  32  J=J+1 

FANS  33  250  A ( I , J 1 =A ( I , J 1 -C*A (N ,K 1 

FANS  34  P(  I  )*B(  1)-A(N,L)*P(N) 

HANS  35  A(N,L)=C 

PANS  36  275  CONTINUE 

PANS  37  100  CONTINUE 

PANS  3P  IFINUMPLK.EO.NP)  CO  TO  400 

PANS  39  WPITF  (1)  (PIN) , (AIN, Ml ,M=2,MM) ,N=1 ,NN) 

FANS  40  GO  TO  100 

PANS  41  400  DO  450  M=1,NN 

PANS  42  N*-NN+1-M 

PANS  43  DO  425  K=?,MN 

FANS  44  L=N+K-1 

PANS  45  425  B  ( N )  =  R  (  N ) -A  ( N ,K  )*fi (  L ) 

PANS  46  NM=N+NN 

PANS  47  B(NM)=B(N) 

FANS  48  450  A ( NM, NP ) =P I N ) 

HANS  49  NB=NB-1 

PANS  50  IF(NB.FO.O)  GO  TO  500 


FANS  *11  BACKSPACE  1 

BANS  B2  OFAD  (1)  (BIN) ,  <  A  < N  ,M >  , M=2  , MM)  ,N=ltNN) 

BANS  *>3  BACKSPACE  1 

BANS  B4  GO  TO  400 

BANS  SB  BOO  K  =  0 

BANS  r>6  00  600  NB=1«NUMBIK 

BANS  S7  00  600  N*ltNN 

FANS  S(j  K  =  K  ♦  1 

BANS  BP  NM=N»NN 

IANS  60  600  B(K )*A(NM,NP) 

BANS  61  RETURN 

BANS  62  FNO 


■ - a.  „■ 


SUBROUT INF  STRESS  ( R ,Z , UR ,UZ . CDDF , BO , F ,RO , PR , S! G! , TH, FP ,B, EP , 

*  RATIO, NEW, IX, MTAG, I BC , JBC, NUMR ,NUMR 1 ,NNP > 

IMPLICIT  RF AL*fl ( A-H ,0-Z ) 

COMMON/TOTAL/  AAI30000I,  IA(70n0) 

COMMON/ONE /NUMNP, NUMEL, NUMMAT ,NUMPC ,NPMAX .NELMAX, N, NNN.KKK ,KLK , 

.  I SH I FT,MBANO,NB AND, NUMBLK ,MTYPE,NCASE»MCASE*NMR,NL»NPP,NFQ,NPC 

.  »NP,NSTEP,NCODE 

COMMON /T WO /R R ( 5)«ZZ(5)«S( 10 , 10 ) , P ( 10 ) , ST ( 3 , 10 ) , C 1 4, 4) , S I G ( 7 ) , FE ( 4 ) 
.  .TITLE!  IB) , SRI ,SR2,XC,YC,ACELR,ACELZ,BCELR,BCELZ, VOL 

COMMON/ THR EF/ STOP, MTOT,NTOT,N1 3, N14, MB 

DIMENSION  R  <  NUMNP )  ,  Z  !  NU’iNP )  ,UR  I NIIMNP  1 , UZ  (  NUMNP )  ,C ODE  ( NUMNP  ) , 

.  BO ( NEQ) ,E ( 6, NUMMAT) ,R0( NUMMAT ) ,PR ( NPC  ,2 ) , S I GI (NUMEL , B ) , 

.  TH! NUMEL ) ,FR( NUMEL) ,IX!NUMFL,5> ,MTAG( NUMEL) ,1 RC (MPC) , 

.  JBCINPC  ) ,NUMR (NMR ) ,NUMR 1 (NMR ) , NNP ( NMR ) 

01  MENS  I  ON  FP(Ni)MEL,4)  ,  RAT  1 0!  NUMEL  )  ,NFWI  1 00  )  ,TT(  4)  ,TF(4) 

DIMENSION  B ( NED) 


T0LL*0. 

SR  =  1 . 

SRAT!0=1.0 

NMY*0 

MPR INT=0 

KK=0 

N0PT=0 

TOLLA=lO. 

KJK=0 

KLK»0 

IF! (NCASF.Lt.l).OR.(NNN.GT.l))  GO  TO  60 
00  50  N= 1 ,NFLMAX 
IF  (MTAG(N) .GT.O)  KJK=KJK+1 
50  CONTI NUF 
60  CONTINUE 

DO  300  N=1 .NFLMAX 
RATI0(N)=1. 

IX(N,5)  =  IABS( I X ( N , 5 ) ) 

MTYPF=  I X ! N  t 5) 

IF t (ROIMTYPF) .EQ.O.).OR.< 1X!N,3) .FQ. 1X!N,2)  ) )  GO  TO  300 
CALL  OU AO  <R,Z,UR,UZ,COOE,BO,E ,RO,PR,SIGI , TH , FR , I  X, MTAG , 
+  IBC , JBC , NUMR ,NUMR 1 , NNP ) 

MM  =  4 

IF! IX(N,3) .FO. IX(N,4) )  MM=3 
DO  175  1=1,4 
EP ( N, I )  =  0. 

DO  175  J=1,MM 
II=2v'J 

JJ=?*I X ( N, J ) 

175  EP  ( N,  I )=EP(N,I)+ST( I, II )*B(JJ)  ♦  ST (  I , I  I- 1) *R ( J J-l ) 

00  190  1=1,4 
S I G ( I ) =0 .0 
00  190  J=1 ,3 


fTpr 

‘  I 

TOO 

SI<(  (  ( =S 10 (  1  ( +C  (  1  .J)*FP(M  *J) 

SIHF 

92 

00  195  1=1,4 

STPF 

93 

11=1+4 

STRF 

94 

195 

SIM  (N*  I  I  1  =  S I G I  (N,  1  ( +  S I G (  1  ( 

STRF 

55 

nn=SIGI (N,5(-« IG1 <N,6< 

STPT 

46 

FF  =  f.1G1(N,6)-S!(.I  <N,fl) 

STRF 

57 

GG  =  S  IG  I  (  N,  5  ( -S  1 G I  (N,li) 

STRF 

5  R 

AJ?=  (00**2+GG**2+FF**2 1/6.0  +S1GI ( N ,7 ) **2 

STRE 

59 

AJ2=OSOPT(AJ2( 

STPF 

60 

AJ1=SIG1(N,5<+S<G1<N,6»+SIGHN,R) 

STPF 

61 

FAIL=AJ2+FE(4(*AJ1 

f  TRF 

62 

I F ( MT AG (N(.EO.O)  GO  TO  200 

STPF 

63 

IF  TFF(3(.rO.O.<  GO  TO  300 

STRF 

64 

IF  ( (NCASF.GT.l T.AND.TMNN.FO.l U  GO  TO  19R 

STPF 

65 

P0=PAPS(FAIL-FF<3<< 

STP( 

66 

CHFCK  =0.05*FC(3( 

ST»F 

67 

IFIPCl.LF. CHECK)  GP  TO  300 

r  TR  E 

6P 

K  K  K  =  1 

SIRE 

69 

CR=CHFCK/OP 

SIRF 

70 

IF(CR.GF.SP)  GO  TO  300 

STRF 

71 

SP=CR 

STPF 

72 

NOP  T  =  1 

STPF 

73 

J.I.I=N 

f  1RF 

74 

ro  to  300 

I  IMF 

7  5 

19  IT 

IMFA1L.GT.FM3H  GO  TO  300 

SIRF  76  MIAC(N(=0 

SlRr  77  KJK=KJK-1 

•Tor  in  CO  T(1  300 

,  P r  70  ooo  CONTINUF 

FIR  MO  IFIFAIL.LT.fr ( 2  )  (  CO  TO  300 

Mnr  Ml  K  K  =  KK  +  1 

SlRf  P„  DO=SIGI (N,l)-SIGI (N,2> 

SIMM  M3  FF=SIGI<N,1)-SIGI(N,4( 

FTor  R 0  0G  =  SIGI  <N,2  T-SI0HN,4l 

LTRF  R5  AJ?=  (0f)*S-?+GO**?+FF**2>/6.O  +  S!G1  (N,3)**2 

S  IP  E  R  A  AJ1=SIGI  (N.H+SIGI  ( N,2  > +S IGU  N  ,4  > 

STPF  R7  P0=S.IG1(N,5)-SIGI<N,6! 

STPF  PR  FF»SIG1  <N,6)-SIGHN,R( 

STRE  P V  CG=SIGI <N,5(-SiGI«N,R> 

STPF  °0  PJ2=  (nn**2>GG**2+FF**2 )/6.0  ♦ SI G I (N .? ) **2 

STRE  91  RJ1=SIGI(N<5)+K1GI(N,6)+SIGI(N,8) 

STPF  9  2  CCOIS1GI  (  <.I  l-S  IGI  (M,2) )  » C  5. 1 G I  CM,D*-SIl'I  IN, 6)  )♦(  SI  G|  IN,2(-SIGI  (N, 

STRF  93  .4)»*(SICI'  I  ,6 ( -S I G I (N, P ( ) +  T S' 0 1 CN , 4 )-S I  Gil M « 1 1 ) *( 9 1 G I ( N,fi ) -S 1 G I (N • 

SIPE  94  .9(1 

STPF  9  ft  CCC-CCC  /i>  .0+  SIGI <N,3)*SIGI (N,7( 

STPT  o I,  AR=AJ2-(  Ef  (4<  *AJ1  (**2 

stpf  97  nn=pj2-(rF(4(*pji(**2 

STPF  OR  rr=fCC-(FF  (4(*EE C4|*AJl*P  JII 

STPF  °9  PD=EF(4(*FE(?(*AJ1 

5TRF100  FF=f  H4(*Fr(3(*hJI 


S TP  F  1 0 1  GG=T  F  (  3  » *[•  E  ( 3 1 

STRF102  AAA=AB4BB-?.*CC 

STRF103  BPB=AB-CC+00-FF 

STR  F 104  CCC=2.*00-GG+AB 

STRF105  GGG=RRB*BPfl-AAA*CCf. 

S1RC106  IF  (GC.C  .LT.O.  )  WR 1 TE < 6  ,200P )  '* 

S1RF107  I  F  ( GGG.LT. 0,  )  CGG=nABS  (f.GG ) 

S7RE10B  GGG=OSORT( GOG) 

STRF  109  1FUAA.NF.0.)  Gf)  10  220 

STRFllO  RAT10(N)«.5*CCr./BPP 

SIR 1 1 1 1  (D  TO  300 

STRF112  220  *P=BBP/AAA 
STRF113  BB  =  OAB  S ( GGG/AAA ) 

STRF114  R  A  T 1 0 ( N ) = AB-RD 

STRF115  IF (RATIO(N)  .LT.O. )  RA1 tOINIrAB+BR 

STRE lift  1F(RATI0(N).GE.1.)  RATIO! N) = .99099 

STRF117  IF(RAT10(N).LT.0.)  RATI0(N)=0. 

STRFlin  IF  (KK.N(.l)  GO  TO  240 

STRF119  WRITE  (6,3000) 

STRF120  240  WRITE  (6,3005)  N, RATIO! N) 

STRF121  300  CONTINUE 

STRE122  IF(KK.FQ.O)  SR=1.0 

S1RF 1 23  IF(KK.FQ.O)  GO  TO  410 

STRF  124  00  350  N=  1  *NFLMAX 

6TR  F 12  5  1 F( 3T AGIN) .Cl .0 )  CO  TO  250 

STRF126  MTYF  E  = I  X  (  N ,  e  ) 

STRF127  IF  (RO(MTYPE) .FO.O. )  GO  TO  350 

STRF12B  00*RAT10(N) 

STR( 12g  IF(OO.GF.SR)  GO  TO  360 

ST°  f  130  SR=0D 

5.TRFI3I  NOPT-2 

STHC 132  NMY=N 

i T  R  F 1 3  3  KKK  =  1 

GTRF 134  350  CONTI NUF 

STRI136  WRITF  (6,3010)  5R.5R2 

5 TP F 1 3 6  IF(NNN.FO.l)  GO  TO  362 

S» TR f  1 3 7  OFj»  SR*(  1.0-SR?) 

STRT 13P  IFinO.LT.O.O?)  N0PT=3 

ST p F 13V  iF(nn.LT.o.03)  00=0.03 

STRF140  SR  =  00/(1. 0-RR2) 

ST’U  141  00’  SR*(  1.0-SR?) 

51 3  F 14?  IF(On.GT.O.lO)  N0PT  =  4 

S  T  R  F 1 4  3  IFIOO.GT.O.lfi)  00=0.10 

ST  (P 144  5R«0fT/(  l.-SR?) 

STWri45  IF(SR.GT.l.O)  SR=1.00 

STRF146  352  CONTINUE 

S1RF147  SRAT10=SR 

STPf  14B  IF  (KJK.GT.O)  SR=0. 

STRF149  410  C0NT1NUF 
STRF150  00  420  N=1,NPMAX 


S  TR  c  1  5  1  II=?*N-1 

STRF152  B ( 1  1 1 =P (  1 1 ) *SR 

STRF153  420  P ( I  I  + 1 1  * R  (  1 1 ♦ 1 ) *SR 
!!’HM  WRITF  (6., *.010)  NMY.SR.SR? 

STRF155  N00=0 

FRMAX  =0 . 

MRFIS7  or  ton  n=i,nflmax 

STR  F 1 5  H  M1YPC=IX(N,5) 

STRF15R  IF  (R0(  MTYPt  ) .  FI  ,0.  )  GO  TO  51=, 

M°  f  140  IF(  IX(N,3).NF.|X(N,?)|  GO  Tf  430 

r.TRC16l  C 

STRF14?  C  fALCULATf  STRFSSFE  1M  ONE  P  1MFN S I DNA L  ELEMENT* 

MRP143  f 

STRF 1 64  l*IX(N,ll 

STRF I  A  A  J= IX (N  »  ? I 

STRF1GG  XC*  |R  (  !»♦»(  J»  »/?.0 

ETRU67  YC=  (  Z  I  I  »♦  Z  (  JII/2.0 

5  TR  F  16  0  OX-0(J)-R(n 

STRFliSR  nvc2(j)-2(|) 

st°  r  170  xi=nstiRT  (nx**r*ny**2* 

STRrni  nu= p  ( ?♦  j-i ) -f<  ( ?* i - 1 1 

MRFI7?  PV  =  H ( 2*  J I ~R ( ?♦ I  I 

5  TR  F  1  73  r)L  =  nV*OY/XL+nn*DX/XL 

MR  F 174  no  42?  1=1,7 

FTRF175  422  SIC(l)=0. 

S T 0 F  1 7 A.  nx  =  (  (  1  ,MTYP(  )*PL/XL 

MR  F  177  siGin=nx*s" 

STRF17H  IF(F(3,MTYPF).FC.1.I  GO  TO  4?4 

STRF17R  :.ir.ltr,5*=-nx*(  l-SR  I 

'TRtipo  sir,i(N,n=s  if.in+sioKN.n 

M R  F  i  A  i  f.p  tc  515 

ET°F1H?  4?5  S1G{4>=-0X*(1.-S° I 

MRF1P3  sircn  =  5ici  (N,n*r.x*s“ 

E1RF1R4  OY  =  f <4,MTYPfc)/(E|GI (N.ll+rxl-l  . 

5IRF1P5  1FIDAPSIDYI .IF..05I  GO  TO  4?P 

M»r  ]  f(6  11=1 

ST»riP7  IFINNN.GT.K  11=5 

MRFlflB  0Z=51G I IN, II ♦OX 

MPF1BV  DX=F | G I ( N , | | ) +PX 

STRF  1  VO  DY  =  ( F  ( 4 ,  MT  YPF  ( -02  I  *  S IG I  (N  ,  1 1 !  /  OX 

STRF191  SICIIN,n  =  SIC(l)*nY 

STPFlo?  S1G!(N,5)=SIG(5( ♦OY 

STRF 1 R 3  KLK=1 

MR  F 1 94  SIC(SI=S1G1(F ,51 

STR  F 1 R  5  SIG(4)=SIG1(N,1 ( 

STRF 196  GO  TO  515 

S T° F  1 R 7  4?  R  SIGIIN,n=SlG(l> 

STRriVR  5. 1  G  I  (  N ,  5  I  =  S  I G  ( 5  I 

ETRE  1«R  GO  TO  M* 

STRr?O0  430  1=IX(N,1’ 
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STRF201  J=1XIN,2) 

STRE202  K=1X(N,3) 

STRE203  L«1X(N,4) 

STRF204  MT YPF  =  1 X  I N, 5  I 

STRE205  lF(K.FO.L)  GO  TO  440 

MR F 206  XC  =  (R<  I  I+R I J) +R(K)+RIL)l/4. 

STRF207  YC= I Z I  1)+Z(J)+Z(K)+Z(L) )/4. 

s  tr  r  ?  o  s  no  to  445 

STRr209  440  XC  =  (Rm+R(J>+«<K)  1/3. 

S  TP  E  2 1 0  YC  =  (Z(  1  I +Z I J)  +  Z IK  I  1/3. 

STRF21I  445  CONTINUE 

STRF212  XN=0.4 

STRF213  lFINNN.EC.il  XN=1.0 

STRE214  IF  ( MTAGIN) .LE  .0 1  XN=1.0 

STRE215  00  450  1=1,4 

STRF216  1 1  *  1*4 

STRE217  TT  (  1 1  =  SIGKN, 1) 

STRF218  TF ( I |  =  S 1GI (N, I  I ) 

STRE219  SIG(1)  =  S1GKN,I1)-SIG1(N,I) 

STRF220  SIG1IN.I 1 )=SIG( I )*( l.-S”) 

STRF221  SIGKN,  I  1 1  =  -SIG1(N,  I  I  I 

STRF222  SIG(I)=  XN*S1  G I I ) *SR+S 1GI (N, 1 1 

STRF223  450  S I G I ( N, I ) =S IG ( I  1 

STRF224  IF! (NMY.EO.O).OR.(KJK.GT.O))  GO  TO  4B5 

STRE225  IF  (MTAGIN). LF.O)  GO  TO  4fll 

STRF226  I ST0P=0 

STRE227  DO  470  JJ=1,5 

STRF228  CALL  STRSTR  ( R  ,  Z  ,UR  ,IIZ  ,  CODE  ,B0  ,E  ,R0,  PR ,  SIGI ,  TM,  FR  ,  1  X,  MT  AG, 

STRF229  ♦  IRC, JBC, NUMR ,NUMR 1 , NNP I 

STRF230  DO  455  1=1,4 

STRE231  11=1+4 

STPFP32  SIGKN, II)  =  TT(n 

STRE233  00  455  J«l,3 

STRF234  455  S  I G  I  (  N, 1 1  =S  IG  I  ( N ,  I  I)  +C  <  I  ,  J  I  *E  P(  N  ,  J  )  *SR 

STRF235  00=(SIGI <N,5)-S1GI(N,6))**2  +  ISIG1K',6)-  S1GI (N,8) )**2  +  (  SIGI  (N,5)- 

STRF236  .SIGKN,  P  » 1**2 

STPF237  AJ2=DD/6.0+  S I G  I  ( N , 7 1 ♦*? 

STREP 38  AJ2=DS0RT(AJ2) 

STRF239  AJ1  =  SIGI  (N, 51  + SIGI ( N, 6  I +S IGI ( N ,8  I 

STRE240  FAIL=AJ2+FF(4)*AJ1 

STRF241  IFUJ.EO.il  GO  TO  460 

STPE242  D  =  DARS ( FAI L-F  A IL 1 1 

STRF243  TQL=0.005*FAIL 

STRE244  IF(DO.LF.TOL)  IST0P=1 

STRF245  460  FA  I  LI  =FAIL 

STRE246  00  465  1=1,4 

STRF247  11=1+4 

STPFP4B  SIGI I )=SIG1 (N,I I)-TT(I) 

STRF249  465  S I G  II N  ,  I )  =  TT I  I ) +S I G I  I ) *XN 
STRF250  IFIN.NE.il  GO  TO  451 


i 


JWffli&aMwsKw 


SIRF  29  1 

WR  1  IF  (6, 1000 1  .SIGHS',  1)  ,1  =  1  ,H) 

‘ >TRf 282 

)  000 

FORMAT  <  1  OH  :.|I.|(N,I)  /  (PF12.4)) 

<-  T R  r  ?=.  3 

461 

CONTINUE 

STPf284 

IF  <  ISTflP.(.T.O)  10  TO  478 

5.TRF288 

470 

CONTINUE 

SIRE  286 

478 

no  48 o  1  =  1,4 

STRF297 

11=1+4 

STRF26R 

S1GI  IN,  1  )  =  S  1 C- 1  IN,  1 1  ) 

STRF259 

SIC I(N, 1 1 »=-<TF( 1 I-S1GI <N,1 *1 

5TRF260 

SIM  1  )  =  SIOI <N,I  1 

STR  F  26 1 

480 

CONTINUE 

STRE262 

4fl  1 

TR  =  SR  AT10 

i TRF263 

TOL  =  0  .0 5* TR 

SYRE264 

IFITR.Gf  .0.98)  r.O  TO  489 

STRR268 

IFITOL.LT. 0.0091  TOL=0.005 

STRF266 

IF  (MTAMNI  .(  T  .0)  GO  TO  4fie 

STRF267 

IT (RATIO(N) .LI  .TR )  CO  TO  4B2 

STPE26B 

OOrRAT IO(N)-TP 

STR 1249 

IF  (DO. GT. TOL)  GO  TO  4R8 

STRf  270 

4R  2 

NOO=NOO+ 1 

STR  F  27 1 

NFW(NOCM=N 

STPF272 

M  T  A  G  (  N  )  =  1 

STR  F  27? 

488 

CONT INUF 

STRF274 

00  490  1=1,4 

5TRF276 

490 

Ff  (  I  )=F ( 1 ,MTYPF | 

STR  1 276 

CC=  2.+DSINIEF (41/57.296) 

STRF  277 

PR=  1  . 732*( 3. -PS  INI FF( 41/97.296) ) 

STRT27P 

PP  =  6.«nC0S(FF  (41/97.296) 

STRF379 

FF(4)=CC/bP 

'TRF280 

EEPI=  EF(?)»PP/B8 

STPI 2B1 

S 1 G ( 7 1  =  S 1 G I  IN, 4) 

STRE2R2 

CC  =  ( S IG 1 1 )  +  S IG  <  2) )/2. 

STRF2R3 

PB= (SIGIll-S 10(21  1/2. 

STBF  204 

CR=nS0RT(PP**2+SIG<3)**2) 

STRF  ?B  8 

SIG(4»=CC+CR 

STR  F  2R6 

sir.(8)=cr-cp 

STRf  2P7 

sir, (6)=o. o 

STRF2RR 

IF  I (BP.FQ.O.O) . AND . ( SI 0(3) .FO .0.0) )  GO  TP  8)0 

STRE  2R9 

S  I G  (6 )  =  28 .648+0  AT  A,N2(SIC(3)»PR) 

S  T°  F  290 

410 

CONT 1 NUF 

STRF  291 

nn=isir  ( i  I-SIM2)  )*«2+(Sir(?)-siG(7))**?+(siG( 

F.TRF292 

Aj2=nn/6.  +sir.<3)**2 

STR  E  293 

AJ2=0SURT(AJ2) 

STRF294 

A  J 1 =  S 1 G ( 1 ) ♦ S 1 G ( 2)  +  SlG(7) 

STRF29F 

FAIL=FF(3)-FF(4)+AJ1 

5  T  P  F  2  9  6 

FR(N)=AJ2/FA1L 

STRF2«7 

IF  (MTAG(N).GT.O)  GO  TO  619 

STRF29P 

IF  (KJK.GT.OI  GO  TO  818 

STRF  299 

IF  (FR(N).GF.0.99)  MTAG(N)=I 

STR  R  300 

IF  (MTAMN)  .FO.O)  GO  TO  *  1  9 
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STRF301  NOO*NOO+l 

STRE302  NFW  ( NOO )  *N 

STRF303  515  IF  (MPR  INT.GT.O)  GO  TO  550 

STRF304  WRITE<6,2000)  NNN 

STRE305  MPR  IN  T*  50 

STRE306  550  MPR IN T*MPRINT-l 

STRt  307  IF((IX<N,2)-IX(N,3)).FO.O)  FRINI-0.0 

STRE308  IF(TH(N).NE.l.)  SIG<7)*0.0 

STRF309  IF  (RO ( MTYPF) .NF.O . )  GO  TO  555 

STRE310  WRITE  (6,2010)  N 

STRE311  GO  TO  600 

STRF312  C 

STRE313  C  PRINT  OUT  STRESSES 

STRE314  C 

STRE315  555  IF ( MT AG ( N) .LT . 1 )  GO  TO  556 

STRE316  WR I TE (6 ,2011 )  N ,XC , YC , ( SIGt I) , I  =  1 , 7 ) ,  ,  TAG ( N ), FR(N ), MTYPE 

STRE3I7  GO  TO  557 

STRE318  556  WR I TF ( 6, 2001 )  N , XC , YC • ( SI G( I) , I =1 , 7 ) • M TAG (N  I  ,  FR ( N ) , MTYPE 
STRE319  557  I F ( IX ( N  ,2 ) .EO . IX(N , 31)  GO  TO  600 
STRE320  IF( (FR(N).GE.l.l  ("R  .  (  FR  ( N )  .LT .  FR  MAX  )  )  GO  TO  570 

STRE321  FRMAX  *FR ( N) 

STRF322  NMAX*N 

STRE323  570  CONTINUE 

STRF324  00*SIGI ( N, 5  > -S I GI (N,6» 

STRF325  FF*SIGI(N,6)-SIGI(N,8) 

STRF326  GG«S IG  I (N,5)-SIGI(N,8) 

STRF327  BJ2«  ( on**2+GG**2+FF**2 ) /6.0  +  S IG I ( N , 7 ) **2 

STRE328  B J2*0SQRT( 8J2 ) 

STRF329  T0LL«T0LL*BJ2 

STRE330  600  CONTINUE 

STRF33I  SR?«  ( SR I*SR)  ♦  SR? 

STRE332  SRI*  (1.0-SR)  *  SRI 

STRE333  WRITE(6,2002)T0LL,SR,NMY,KK,SR2 

STRE334  WR I TE ( 6 , 5000 )  FRMAX.NMAX 

STRE335  IF(NOO.FO.O)  GO  TO  620 

STRE336  WR I TE ( 6 , 2020 )  (NFW ( 1 1 , 1  =  1 ,N00) 

STRF337  620  KKK*1 

STRE338  I F ( TOLL  .LE.TOLLA)  KKK  =  0 

STRF339  NK  T  *NF  LMAX/2 

STRE340  JCK*0 

STRE341  00  705  N«l,NFLMAX 

STRE342  IF(MTAGIN) .GT.OI  JCK=JCK*l 

STRE343  705  CONTINUF 

STRF344  IFIJCK.LT .NKT )  GO  TO  710 

STRF345  WR I TF ( 6 , 2007 ) 

STRE346  CALL  EXIT 

STRE347  710  CONTINUF 
STRF34B  IF(NNN.FQ.I)  GO  TO  800 

STRF349  GO  TO  (  750 , 760 , 770 , 78 0 )  ,NOP  T 

S1RF350  GO  TO  800 
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SIRF3BI  750  WR  I  TF(  *,2(103)  JJJ 

STPE352  GO  TO  800 

5188383  760  HP  I T8 ( 6,?00h) 

S.TPf384  GO  TO  800 

STRF3B8  770  HP  1TF(6,2<)0*  ) 

STR  :88ft  00  TO  800 

STT357  780  MR  I  IF  (  6  ,?(>06  ) 

STRF358  800  RF TURN 
STPF254  2000  FORMAT  I 1H1/ 

STRF360  .36H  STRESSES  AFTtR  AP PPOX (M A T I  ON  NUMPFR  14//// 

STRF36I  .7H  FL .NO.  7X  1HX  7X  1HY  4X  RHX-STPESS  4X  BHY-STBF  SS  3X  9HXY-STRESS 

FTP F 36 2  .  ?X  lOHMAV-STRFSS  2X  10HMIN-STPFS5  7M  ANGLE  4X  RHZ-STPFF.S  3X  7HPL 

GTRF363  .AST1C  3X  4HFAIL  3X  8HMT YPr  ) 

<TRE3f4  2001  FORMAT  (  1 7 , 2F 8 . 2 , 1 P8E 1 2 .4 ,0P1  F 7 . 2 , 1 P F 1 2 . 4 ,  I6,0P1E11.3  ,16  I 
STPF365  2002  FORMAT! 39H0THE  UNBALANCED  LOAD  AT  THIS  STAGF  IS  F14.5// 

STRF366  .47H  THF  RATIO  FOR  CORRECTION  OF  STORED  STRFSSFS  IS  F10.4// 

STRE367  .31H  THF  NEXT  FLf.MtNT  YIELDING  IS  14/ 

STRF368  .«IH  AND  THE  TOTAL  NUMBER  OF  FLEMENTS  THAT  CAN  YIELD  WITH  THE  LINFA 

STRC369  .»  ADDITION  OF  TOTAL  LOAD  IS  14/ 

STRE370  .BOH  LOAD  UP  TO  THIS  STAGF  AS  A  FRACTION  OF  TOTAL  IS  F20.5  I 

STRF371  2003  FOP  MA  T  (  I  10H0S  TP  F  S  S  PATIO  GOVERN'D  BY  STRESS  STATF  BF  ING  MORF  THAN 
STRF372  .5  PERCENT  OUTSIDE  YIELD  SURFACE  FOR  ELEMENT  NUMPER  =  IB) 

STRF373  2004  FORMAT  (  5?H0  STPFS.S  RATIO  GOVFRNFD  BY  NFXT  FLFMFNT  YIELDING  ) 

SIR F3 74  2008  FORMAT ( 10DH0S TRESS  PAT  ID  GOVERNED  BY  THE  MINIMUM  VALUE  OF  SR  FDR 

S TR I  375  .  ANY  STFP  ) 

STRF276  2006  FORMAT! I10H0  STRTSS  RATIO  COVE  RNED  BY  THF  MAXIMUM  VALUE  OF  STRTSS 
STRf  377  .  RATIO  EG1'  ANY  STEP  ) 

STOI378  2007  F0PMAT(64H0  JOB  TERMINATED  AS  HALF  OF  TOTAL  ELEMENTS.  YIFLD  AT  THIS 
S TP  E  370  ,  STRP  ) 

STRT3P0  2008  FOR  MA  1  (  110H  ARGUMENT  NEGATIVE  IN  THE  EOUATION  FDR  CALCULATING 
STRE381  .  THT  VALUE  OF  STRESS  RATIO  FOR  ELIMFNT  NUMBER  r  I8| 

STPF382  2004  FORMAT  ( 48H0  STRESS  RATIO  SP.  FOR  THIS  CYCLO  FID. 8) 

STR (  38  3  2010  FOP M AT ( 1 7 , 5 OH  THIS  ELEMENT  HAS  PFFN  RFMOVFD  FROM  THT  ANALVSIS  ) 
STPF384  2011  FORMAT  (  1 7 , 2 FR .8 , 1 P 8E 12 . 4 , OPI F 7 . 2 , 1 PF 1 2 . 4 ,  I6.0P1F11.3  ,I6,3X,1H*) 
5TPE388  2020  FORMAT ( 4PH0  THT  FOLLOWING  NFW  F LFMFNTS  YIFLD  IN  THIS  STEP  // 

STRF3B6  .20(8) 

STRT3P7  3000  FORMA  1  (35HO  THE  FOLLOWING  TLEMFNTS  CAN  YE ( LD  // 

STRF  388  . 3  4H0  FLTMFNT  ND.  R  AT  1 0 1 N )  ) 

STRF38R  3005  FORMAT  <(10,820.8) 

STPE390  3010  FORMAT!  17H0  SB  S®2  / 

5  TP E  391  .  2FI0.8) 

STRF3Y2  4G10  FORMA  T ( 6H0  NMY  =  15,?HSP=  r2G.8,  4HSR?=  E20.8  ) 

STRf  34  3  5000  FORMA T ( I 7H0MAX 1  MUM  FAIL  IS  F6.3.17H  FDR  ELEMENT  Nn. 

STRE394  FNP 
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CHAPTER  III:  GRIFTH  -  A  Computer  Program  for  Two-Dimensional 
Analysis  of  Progressive  Failure  of  Rock  Following 
Griffith  and  Modified  Grifiith  Theory 

3.  L.  Purpose  and  Capability 

This  computer  program  is  applicable  to  plane  stress  or  plane  strain  analysis  of 
stresses,  deformations  and  progressive  fracture  in  elastic  brittle  roek  following  Griffith 
and  modified  Griffith  theory.  Arbitrary  initial  stresses,  arbitrary  sequence  of  construc¬ 
tion  or  cxeavation,  arbitrary  history  of  load  application  ean  be  simulated.  One  dimensional 
elements  arc  included.  The  program  is  applicable  to  study  of  fraeture  initiation  and  pro¬ 
pagation  in  arbitrary  elastic  brittle  structure  systems  composed  of  several  different 
materials.  Non-monotonic  loading  is  considered. 

Theoretical  development  incorporated  in  the  program  is  documented  in  Part  I- 
Tcehnieal  Report  of  this  report. 

3.2.  Program  Organization 

The  computer  program  is  in  Fortran  language.  Files  1  and  2  are  used  to  store 
s\  tern  equations  and  element  properties  respectively.  Tapes  5  and  6  are  the  input/ 
output  files.  The  program  capacity  can  be  altered  by  changing  the  dimensions  of  arrays 
AA  and  IA.  These  correspond  to  the  total  locations  required  for  real  and  integer  arrays 
respectively.  NTOT,  MTOT  at  lines  MAIN  29  ,  MAIN  30  are  set  equal  to  the  dimensions 
of  AA  and  IA. 

The  program  consists  of  the  following  units: 
a.  MAIN 


In  this  unit,  the  eontrol  iuformation  including  maximum  number  of  elements, 
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nodal  points,  different  materials,  boundary  pressure  cards,  the  number  of  steps  of 
excavation  or  construction,  the  maxin  number  of  elements  removed  or  added  to 
the  system  at  any  stage  is  read  in.  This  information  is  used  to  organize  the  dimen¬ 
sions  of  various  arrays.  This  done,  further  processing  of  data  is  done  in  subroutine 
INPT. 

b.  Subroutine  INPT 

This  subroutine  is  called  by  the  unit  MA.N.  The  first  step  is  to  read  in  mate¬ 
rial  property  data  for  all  different  materials  in  the  system.  Nodal  point  coordinates, 
loads  and  code  descriptors  for  boundary  conditions  are  read  in  or  generated.  Element 
geometry,  initial  stresses,  initial  crack  openings,  if  any,  are  read  in  or  generated. 
Maximum  bandwidth  for  the  system  is  calculated  and  dimensions  of  blocks  for  genera¬ 
tion  and  storage  of  system  stiffness  defined.  After  defining  these  controls,  the  incre¬ 
mental  structure  is  analyzed  in  steps.  For  each  step  the  number  of  nodal  points,  the 
number  of  elements,  the  number  of  elements  and  nodal  points  removed  or  added,  if  any 
the  number  of  boundary  pressure  cards  and  the  material  type  of  the  elements  added  or 
changes  in  material  properties  arc  read  in.  After  the  information  is  assembled  the 
solution  process  is  transferred  to  subroutine  SOLVE, 
c.  Subroutine  SOLVE 

This  subroutine  called  by  INPT  is  concerned  with  obtaining  stresses,  deforma¬ 
tions  and  sequence  of  progressive  fracture  of  elements  in  a  g  ven  step  of  loading/con¬ 
struction  /excavation.  To  trace  progressive  fracture,  the  solution  process  traces  a 
sequence  of  elements  reaching  fracture  along  with  the  effects  of  stress  redistribution 
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associated  with  fracture  leadin;  to  secondary  fractures.  The  process  consists  of 
applying  the  total  load  and  then  scaling  it  according  to  the  minimum  ratio  of  load 
increment  needed  to  ensure  ore  element  reaching  fracture.  Once  an  element  frac¬ 
tures,  the  associated  stress  redistribution  will  result  in  secondary  fr at  cures  at  the 
same  total  load.  This  is  referred  to  as  system  stability  iteration  in  the  program. 

The  SOLVE  subroutine  calls  ONED  and  QUAD  to  obtain  element  stiffness  for 
one  or  two-dimensional  elements  respectively.  This  information  is  stored  on  File  2 
and  is  updated  in  case  of  fracture  or  failure.  Solution  to  the  stiffness  equations  is 
obtained  in  subroutine  BANSOL.  Subroutine  STRESS  defines  the  stresses  corresponding 
to  a  load  application.  This  is  referred  to  as  the  initial  state  for  any  load  increment. 

As  several  elements  may  crack  during  a  load  increment,  it  is  necessary  to  scale  it 
to  pin-point  the  sequential  fracture  phenomenon.  This  is  accomplished  in  subroutine 
SCALE. 

d.  Subroutine  SCALE 

This  subroutine  calls  subroutine  GRIFTH  to  check  each  element  for  fracture  or 
closure  of  cracks.  The  stress  ratio  for  each  element  is  calculated,  if  necessary,  using 
interpolation  (subroutine  INTER).  Iterations  to  define  a  value  of  orientation  of  fracture 
are  referred  to  as  beta-stability  iterations.  After  choosing  the  minimum  stress  ratio 
applicable  and  the  clement  that  next  fractures,  system  stability  iteration  is  accomplished 
to  define  all  secondary  fractures  associated  with  the  primary  fracture.  This  process  is 
illustrated  in  the  flow  chart  as  Figure  III- 1 . 

3.3.  Input  Data 

a.  Job  Title  (18A4).  This  card  will  give  the  descriptive  identification  for  the  job. 
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b.  Control  Information  (415,  3F10.2,  315) 

Information  Columns 

Maximum  number  of  nodal  points  1-5 

Maximum  number  of  elements  6-10 

Number  of  different  materials  11-15 

Maximum  number  of  pressure  cards  16-20 

Body  force  in  X-direction  21-30 

Body  force  in  Y-direction  31-40 

Reference  (stress-free)  temperature  41-50 

Number  of  initially  open  cracks  51-55 

Code  to  designate  plane  stress  or  plane  strain  56-60 

N PLANE  =  1  for  plane  stress 
=  2  for  plane  strain 

Total  number  of  excavation  &  construction  steps  61-65 


c.  Material  Property  Cards.  One  set  of  cards  must  be  provided  for  each  material. 
In  each  set: 

i.  First  card  (215,  F10.3,  215)  will  give  the  following  information: 


Information  Columns 

Material  identification  number  1-5 

Number  of  temperature  cards  (8  maximum)  6-10 

Mass  density  of  the  material  11-20 

Material  code  to  designate  materials  which  will  follow  the  21-25 

fracture  criteria 


code  -  l  for  materials  which  will  follow  the  fracture  criteria 
0  for  materials  which  will  not  fracture 
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Material  code  to  identify  the  initial  anisotropy  due  to  initial  cracks  26-30 
code  =  1  for  initial  anisotropy 
=  0  for  isotropy 


ii.  If  columns  21-25  in  card  i  is  not  zero,  the  following  information  must  be 
provided  (3F10. 3) 

Information  Columns 


Tensile  strength 

Internal  frictional  coefficient 


1-10 

11-20 


Tolerance  for  crack  closure 


21-30 


iii.  Subsequent  cards,  one  for  each  temperature,  the  number  being  defined  in 
columns  6-10  of  the  first  card,  will  carry  the  following  information  (F10.0 
E10.0,  2F10.0) : 


Information 


Columns 


Temperature 
Elastic  modulus 


1-10 

11-20 


Poisson's  ratio 


21-30 


Coefficient  of  thermal  expansion  31-40 

iv.  If  columns  26-30  in  card  i  is  not  zero,  the  follov/ing  information  must  be 
providied  (4F10.4): 


Information 


Columns 


Modulus  ratio 


Angle  of  fc.uU 
Frictional  coefficient 


Shear  strength 


1-10 

11-20 

21-30 

31-40 
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d.  Nodal  Point  Cards  (15,  F5.0,  5F10.0).  One  card  for  each  nodal  point  with  the 


following  information: 

Information 
Nodal  point  number 
Type  of  nodal  point 


X-ordinate 


Y-ordinate 


Columns 


11-20 


21-30 


31-40 


41-50 


Temperature  51-60 

If  the  number  in  columns  6-10  is: 

0  -  XR  is  the  specified  X-load  and  XZ  it  the  specified  Y-load 

1  =  XR  is  the  specified  X-displacemcnt  and  XZ  is  the  specified  Y-lcad 

2  =  XR  is  the  specified  X-load  and  XZ  is  the  specified  Y-displacement 

3  -  XR  is  the  specified  X-displacement  and  XZ  is  the  specified  Y-displacemcnt. 
All  loads  arc  considered  to  be  total  forces  acting  on  an  clement  of  unit  thickness. 
Nodal  point  cards  must  be  in  numerical  sequence.  If  cards  arc  omitted,  the  omitted 
nodal  points  are  generated  at  equal  intervals  along  a  straight  line  between  the  defined 
nodal  points.  The  necessary  temperatures  are  determined  by  linear  interpolation. 
The  type  of  the  nodal  point,  as  well  as  XR,  XZ,  are  set  equal  to  zero. 

e.  Element  Material  Cards  (1615).  These  cards  shall  carry  the  material  type  of  all 
the  elements.  Each  card  shall  have  material  types  for  16  elements  in  sequence. 

The  material  type  for  each  element  must  be  read  in  as  no  interpolation  has  been 
provided  for. 
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f.  Elements  Cards  (515,  5X.  3F10.0).  One  card  for  each  element  will  provide  the 


following  data: 


Information 

Columns 

Number  of  element 

1-5 

Nodal  point  I 

6-10 

Nodal  point  J 

11-15 

Nodal  point  K 

16-20 

Nodal  point  L 

21-25 

Initial  stresses: 

Component  in  X-direction 

31-40 

Component  in  Y-direction 

41-50 

Shearing  stress  on  X-Y  planes 

51-60 

Nodal  points  I,  J,  K,  L  are  comers  of  each  individual  element  in  a  counter¬ 
clockwise  order  for  a  right  handed  system  of  coordinates.  For  triangular  ele¬ 
ments  set  nodal  point  L  same  as  nodal  point  K.  The  element  cards  must  be  in 
the  numerical  sequence.  Any  cards  that  are  omitted  will  be  automatically  gene¬ 
rated  in  the  program  by  incrementing  each  of  the  I,  J,  K  and  L  nodal  points  by 
one.  The  material  type  will  be  taken  same  as  for  the  last  element  defined, 
g.  Initial  Cracks  Cards.  If  columns  41-45  in  card  b  is  not  zero,  the  following 
information  must  be  provided  for  each  initial  crack  (215,  F10.0). 

Information  Columns 

Element  number  1_5 
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Tag  number 


6-10 


Crack  Angle  1J-20 

The  tag  number  is  used  to  designate  the  crack  mode 

Tag  1  for  single  crack 
2  for  double  crack 

The  crack  angle  is  defined  as  the  angle  between  X-axis  and  the  normal  to  the 
crack  plane,  positive  counter-clockwise. 

h.  Incremental  Step  Information.  One  set  of  cards  must  be  provided  for  each  step 
of  construction  or  dismantling.  Construction  and  dismantling  may  not  be  mixed 
in  one  step. 

i.  First  card  (18A4).  This  gives  the  descriptive  title  for  the  step  for  which 
information  follows. 

ii.  Second  card  (715).  Following  information  is  given  for  the  step  which  is 
described  in  Title. 

Information  Columns 

Number  of  nodal  points  in  this  step  1-5 

Number  of  elements  in  this  step  6-10 

Number  of  elements  removed  or  added  with  reference  to  previous  step  11-15 

Number  of  pressure  boundary  cards  (total  pressure  for  this  step)  16-20 

New  material  type  for  the  elements  added  or  eliminated  21-25 

Code  to  designate  addition  to  structure  of  dismantling  26-30 

Code  -  0  for  dismantling 
-  1  for  construction 
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Number  of  nodal  points  included  in  analysis  but  not  part  of  31-35 

structure  at  this  step 

iii.  Addition  or  Dismantling  of  Structure.  One  or  more  cards  shall  indicate 
the  numbers  of  elements  removed  or  added  in  the  step  under  consideration 
(1615) . 

'Phi  total  number  of  elements  included  here  must  be  the  same  as 
indicated  in  columns  11-15  of  card  h-ii. 

iv.  Nodal  Points  Included  in  Analysis  but  not  Taking  Any  Load  (1615).  One  or 
more  cards  shall  indicate  the  numbers  of  the  nodal  points  included  in  the 
analysis  at  this  step  not  formmg  part  of  the  load  carrying  system. 

The  total  number  of  nodal  points  listed  here  must  be  the  same  as 
indicated  in  columns  31-35  of  card  h-ii. 

v.  Pressure  Boundary  Cards  (215,  2F10.0).  If  there  arc  any  boundary  pres¬ 
sures  for  this  step,  then  one  card  for  each  boundary  element  which  is  sub¬ 
jected  to  normal  pressure  will  carry  the  following  information: 

Information 
Nodal  Point  I 
Nodal  Point  J 

Total  Normal  Pressure  at  I 
Total  Normal  Pressure  at  J 


Columns 

1-5 

6-10 

11-20 

21-30 


As  shown  in  the  sketch,  the  boundary  element  must  be  on  the  left  as  one 
progresses  from  I  to  J.  Surface  tensile  force  is  input  as  a  negative  pressi  re. 

j.  1  ast  Card  (A(i).  The  last  card  at  the  end  of  data  deck  is  "stop"  card.  It  carries 
the  characters  STOP  in  columns  1  through  4. 

.‘1 . 4 .  Output  Information 

The  following  information  is  developed  and  printed  by  the  program: 

a.  Print  out  of  problem  data.  This  includes  information  in  material  properties,  mesh 
layout,  geometry  and  boundary  conditions,  loads  and  constraints,  initial  cracks,  etc. 

b.  Initial  stresses  before  any  excavation  or  construction  at  the  center  of  each  element. 

c.  The  incremental  as  well  as  cumulative  nodal  point  displacements  and  the  stresses 
after  application  of  a  load  increment. 

d.  The  stresses  upon  application  of  total  load  increment. 

e.  The  stresses,  crack  orientation,  type  of  crack,  at  the  first  clement  cracking  under 
a  load  increment. 

f.  The  stresses,  crack  orientation,  type  of  crack  for  each  beta-iteration  to  define 
the  correct  crack  orientation. 

g.  The  stresses,  crack  orientation,  type  of  crack  for  each  system  stability  iteration  to 
define  secondary  fractures  following  the  first  fracture  in  a  load  increment  . 

h.  The  stress  ratio  as  a  proportion  of  total  load  at  each  stability  iteration. 
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3.6.  Fortran  7  latlng 


HA  IN 
HAIN 
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^^*M***** ****************************************  ***************** 

*  PRUORAM  101 NTiFlCAIlUNS  PROGRAM  PPA  * 

*  PROGRAMMER:  S.F-  HUANC , 1  .S.RA J  ,  THE  OHIU  STATE  UNIVtRSITY  * 

*  PURPOSE!  PROGRESSIVE  FRACTURE  ANALYSIS  * 

*  FAlLURt  CRITERIA:  FRACTURE  ACCORDING  TO  GRIFFITH  AND  MODIFIED  * 

*  GRIFFITH  THtt'R  1 F  S  * 

*  THE  FORMULATION  IS  DOCUMENTED  IN  THt  FINAL  REPORT  DATED  M ARC F  * 

*  31,1473,  ON  CONTRACT  HG2100I7  BETWEEN  THF  OHIO  STATE  UNIVERSITY* 

*  AND  THF  UNi'ltD  STATES  bUREAU  OF  MINES  SUPPORTED  BY  THt  ADVANCED* 

*  RESEARCH  PRO JFC T S  AGFNCY.  INSTRUCTIONS  FUR  USF  Op  THt  PROGRAM  * 

*  ARE  CONTAINED  IN  PART  11  OF  THE  REPORT.  * 

*******************  ******** ****+.******* *****************  ********** 

COMMON  AAI16(iO;H,1A(4300> 

CUMMON/ONF /  NUMNP ,NUMEL .NUMMAT ,NUMPC,NPC,MbAND .NUMBLK ,NL ,MTYPt ,N, 

.  VUL,ACFLR,ACFLZ ,0, HFO I  16 ) , S TOP , SR , SR  1 , TOT AL , TOL , TOL 1 , XC , YC , 

.  TEMP,  SUN,  SIOOI.SIGUJ, 

.  LLL,  1 1  I,  JJJ,  JCK,KCHECK,  JCHE  CK  ,N  PLANE  ,NuncR ,  NCUDF ,  JA,NFO 

.  ,NBANIi,NCRACK,NSTEP,N13,M7,NI0T 
COMMON/ TWO/  013,3), SI10, 101, S1GI6), PIS), ST(3,10),RRI5I, 7715), 

.  LMI4) ,FF 13  I .FPSI3I 

OUMMUN/TFiKEF/  tin, 4, 8)  ,LUI4,b)  ,TENSIB)  ,XNU(8)  ,R0(8I  EPSTIB), 

.  MTC ( b) ,N 1C  I b ) ,M1D( 8) 

OtFINE  FILE  1(100, 1500, U.NbK) ,21510, 230, U, ID) 

CALL  tPRStTUGB, 256,-1,  11 

READ  AND  WR1IF  CONTROL  INFORMATION  FOR  THF  PRObLFM 

NTuT*160G0 
MT  01  =  4500 
TOL  Is  0  .OG  l 

Rf  AD  I  5 , 1GGC  )  20,  NUMNP  , N  UMEL,  NUMMAT, NUMPC.ACELR,  ACELZ,Q,  NCR  ACK  , 

.  NPLANt ,N5 ( EP 
lFINPLANt'.EO.l  !  WR1  TE  I  6,2COO  I 
1 F INPLANE .to .1 I  WRITE (6, 2003) 

NEOe2*NUMNP 

WRITE  16,20101  HtD,NUMNP,NUMtL,NUMMAT,NUMPC,ACELR,ACFLZ,0,NSTFP 

NPC=NUMPC 

1FINPC.EU.0  NPC= 1 

Nl*l 

N2=N1+NUMNP 
N3=  N2 +NUMNP 
N4“ N3+  NUMNP 
N3=N4+NEC 
N6=N3*NEw 
N7=N6+NF0 
N8=N7+NFt 
N9=NB+NUMNP 
N 10=N V  +6*N0MFL 
N1 1=N1 0+6* NOME  L 
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MAIN  6  1 
MAIN  52 
MAIN  53 
MAIN  59 
MAIN  5* 
MAIN  56 
M.'IN  57 
MAIN  58 
MAIN  6V 
MAIN  60 
MAIN  61 
MAIN  62 
MAIN  63 
MAIN  6A 
MAIN  65 
MAIN  66 
MAIN  67 
MAIN  66 
MAIN  69 
MAIN  70 
MAIN  71 
MAIN  72 
MAIN  73 
MAIN  79 
MAIN  75 
MAIN  76 
MAIN  /7 
MAIN  78 
MAIN  79 
MAIN  no 
MAIN  61 
MAIN  62 
MAIN  I  j 
MAIN  69 
MAIN  65 


N12=Nli+  NUMU 
N 13*N1 2 ♦  NUMIL 
N19-N13 *  NUMtL 
N15  =N1*»  K’*NP( 

Ml  =  l 

M2=M1+5*NUMlL 

M3=M2+NUMFL 

M4  =  M3  +NUML  L 

M5=M9+NUMI L 

M6=M5+NPC 

M7=M6+NPC 

JJ=M7-MTC1 

IP  IJJ.lt  . 0 )  Mi  10  luO 
WR 1 1  £  (6,30001  JJ 
CALL  txir 
ICO  CONTINUE 

CALL  1NPT  (AAIN1 ) ,AA(N2) ,AA( N3) , AA ( N9 ),AA(NS)«AA(N6)«AA(N7), 

.  AA(Nb) ,AA|N9l ,AAIN10),AAIN11 I .AAIN12I ,AA(N13), AA(N14J , 1AIM1I , 

•  IAIM2  I  ,  I  A(M3  I  ,  I  AIM*,)  ,1  AIMS  I  ,  I  A(M6)  ) 

S1CP 

1000  FORMA  1  1 16A9/916, jFlO.2,316) 

2000  FORMAT ( 1H1 , *  PLAN!  STRESS  ANALYSIS*! 

2005  ' OKMAT I 1H1 , ’  PLANT  S1PAIN  ANALYSIS*! 

2010  FORMAT  (1H0  1 6 A9/ 

1  3000  NUMFEk  OF  MifiAL  PuINTS - 13  / 

2  30H0  NUMt'LR  OF  ELTMFNTS - 13  / 

3  30M0  NUMHER  OF  IlIFF.  MATERIALS - 13  / 

9  30H0  NUMl't R  LF  PRESSURE  CAPOS—  13/ 

6  30H0  X-ACCFLFRAT  ION - E12.4/ 

6  30H0  Y-ACCEUP  Al  ION - E12.4/ 

I  3 OHO  RFFtRFNCE  1TMPFRATUKF - E12.9/ 

(■  3000  NUMOER  CP  STEPS - - - 13  ! 

-UGC  FUPM/1  (70H  PROGRAM  rXECUTION  TERMINATED.  klUUIRLD  CURE  EXCIEOS  MT 

•  CT  OY  HQl 

FND 


I  NPI  1  M  *. Pill  1  (Ni  (M  l  |R,Z,LUL'l  ,UU,MM  1  ,1  J,  I  ,1  lOl.EP;  (  ,5lCNM,t  l  IT, 

INP1  2  .  RA11II,Pm,I>.,MIAG,NIA(.,  JNl,(BC,JbC) 

I  NPI  J  l 

INP(  4  oOMMUN  AA I 1<  l  oG) , ( A(450o) 

I INJH  r  5  CUEiMLN/ElNI  /  NUKNP  ,  NUMI  L  .NUMMAT  ,NUHPC  .  NPC  ,MbANG,NUMGLK,  ,NI.  .  M 1  Yu  , N, 

( NPT  o  .  VUL, ACELE.ACILZ.O.HFUIlt), STOP, SR, SRI, TtlTAL,TCL,(CL(,XC,Y(., 

INPT  7  .  II  MP,StON,51(.Dl,SlGDJ, 

1 NP 1  S  .  LLL  ,  I  1  I  ,  JJ  J,  JCK  .KCHtf.K  ,  JCHECK .NFLANE  ,NUM»-R  ,NC|JDE  i  JA  ,NH.’ 

(NPT  V  .  ,NLAN0,NCRACK,NSrtP,N15,M7,NTUl 

INHI  10  CLMMON/TWO/  C  ( 3  ,3 1  »S(  10 , 1 C I  ,  S 1 G(  t  I  ,  P  <  b )  ,  S  I  (  3. 101 ,  RR  (  5  I  ,  71  (  5  I  . 

INPT  11  .  LMU)  ,FE  I  3)  ,EPS(3I 

(NPI  1?  COMMON/  IHkEt/  L(ot4,U),tU(4,b),T£NS(ft),XNU(fi|,PU(b),FPSmi, 

(NPI  13  .  M(U  6)  ,NICIti),MID(R) 

(NPI  14  Cl  1  Mt  NS  1  UN  1  I  I  Li  ( 1 G )  *NNP  1 2uG )  tM  ADI  200  I «NUMR  (  ?GOf 

(NPI  15  DIMENSION  k(NUMNH) ,?(NUMNP) ,CuDE (NUMNP ) , UU ( NUMNP , 2  I ,CU(Ni 0) , 

INPT  16  .  b  1  (  NP.  Cl  (NH.I  ,1  INUMNPl.SIGl  <NUMtL,6)  ftP51  <  NUMEL  ,6 )  ,  S  IC.NMI  NUMll)  . 

INP (  17  .btlAINl  )  ,KAI 1UINUMPL ),PR(NPC,2) , IXINUMI L,5) ,M1AG(NUMFL) , 

(NPT  lb  .NT  A<i(  NUE  )  fJNT  (NUMEL)  ,  (HCINPC  I  ,  JBC  (  NPC) 

(NPT  14  Dll  50  M=i, NUMMAT 

(NPT  20  RFAO  ( 5 , 1 0 lo )  Ml  YPfc  ,N  TC  ( MTYPt  I  ,RU(  MTYPE  I  .M !  C  ( MTYPt )  »M  I  D(  M  T  YP!  I 

INPT  21  URITfclft.cOlCI  M TYPt , NIC (MTYPE ) ,R0( MTYPF I , MIC (MTYPE ), MIDI  MTYPE I 

INP  1  22  1KMTCIMTYP1  I.  1U.CI  CU  1L  45 

(NPT  23  kE  AIM  5  »  1015  )  1 1 N S (MT YPE  ) , XNU (  M T YPP  1  ,  t P S T (  MTYPP  ) 

(NPT  24  WRI It (6,2015)  ICN S ( MT Y PE ) , XNU ( MTYP fc 1 , EP S T 1  Ml YPE ) 

INPT  25  45  CUNTINUt 

INPT  26  NUMIC=NTC(MIYPf 1 

(NPT  27  PLAU  (5,1020)  ( ( K 1 , J ,M TYPf I , J  =  1 ,4 1 , I  *  1 ,NUM TC I 

1NP1  2b  WRITE  (6,20201  ( ( t ( 1 , J , MT Y PE ) , J-l , 4 ) , 1 = 1 , NUKTC ) 

INPT  24  lFIMlDIMTYPtl.tk.OI  00  (0  50 

INPT  30  REPP  (5,1.22)  ( tU( K ,M T YPE I , K  =  1 ,4 1 

INPT  31  WR  .(.16,202?)  ( CO ( K ,MT YPt ) ,H= 1 , 4 ) 

(NPT  at  Id  2,MTYPI  »=rn(2,MTYPFI/57.2<>fc 

INP!  33  50  CONTI  N'JE 

INPT  34  C 

I NP  1  35  L  RtAD  NUl.AL  Pu(N(  DATA, GENERATE  INTERMLOlAlt  POINTS  AND  WR1TT 

(NPI  36  C 

INPT  37  WR (  It  (6, .025) 

(NPT  3t  1=0 

INPT  34  60  READ  (6,lCit‘)  N.CODt  ( N  )  ,  R  ( N )  ,  7  ( N  )  ,  UU(  N  ,  1 )  ,UU(  N  ,2  )  ,  1  ( N  ) 

INPT  40  ItlN.F-U.l  )  C-L  IU  70 

(NPT  41  ZX-N-L 

INPT  42  DR=(R(N)-K(L) )/iX 

INPT  -,3  PZ*(Z(N)-7(L)  )/7X 

(NPT  44  Dl=(T(N)-T(L))/iX 

INPT  45  70  L=L+1 

INP'  46  (E(N-L)  100,40,00 

(NP  47  80  CODE ( L I =0 .0 

INPT  46  R  (  L  I  —  R  I  L- 1  )  +l'rv 

(NPI  44  Z(L)=Z(L-l)*LZ 

(NPI  50  TIL)*T (L-ll+UI 
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INPT  1. 1  UU ( L« 1 ) =0. 

1NP I  32  UU(L,?)=0. 

INPT  *>3  GO  TO  70 

INPT  3*.  VO  IF(NUMNP-N)  100,110,60 

INPT  35  100  WRITE  (6,2033)  N 

INPT  36  CALL  L  X  i T 

INPt  37  110  WR1 TE (6,2030)  ( N ,L(JOt (N),K(N),2(N),IJU(N,1),UU(N,2),TIN),N  =  1, 'NUMNP ) 

1NP1  38  C 

INPT  59  C  READ  fUMtUT  DATA  ,  GENERATE  INTERMtD  1  ATI.  ELEMENTS  AND  WRITE 

INPT  60  C 

INPT  61  RE  A0( 3 , 1030)  ( 1 X ( N , 3 ) , N  =  l , NUME L ) 

INPT  62  Wkllt  (6,2060) 

INPT  63  N=G 

1NPI  66  130  READ! 5 , 1033 )  M , ( 1 X ( M, 1 ) , 1 = 1 ,6 ) 

INPT  65  160  N=N  +  1 

•NPT  66  IF  (M-N)  170,170,150 

INPT  67  150  1X(N,1)=1X(N- 1,11+1 

INPT  68  1X(N,2)=1X( N— 1 , 2 ) ♦ 1 

INPT  69  1X(N,3)=1X(N-1,3)+1 

INPT  70  1X(N,6)=1X(N-1,6)+1 

INPT  71  170  CONTINUE 

INPT  72  SIG1(N,1I=C. 

INPT  73  SIG1 (N,2)-C. 

INPT  76  SIG1(N,3)=C. 

INPT  75  MT AG( N) =C 

1NPI  / 6  JNT ( N ) =0 

INPT  77  BEfMN)=0. 

INPT  78  IE  (M-N)  180,160,160 

INPT  79  180  IF  (NUMEL-N)  190,190,130 

INPT  80  190  WRITE  (6,2063)  ( N, (  ! X  I N , 1 ) , 1  =  1 , 5 ) , ( S i G 1 ( N ,  1  ) , I  =  l , 3 ) , N  =  1 , NUMr L ) 

JNPT  fcl  1MNCRACK.K  0)  GL  T>,  196 

INPT  82  WRITE! 6,2050) 

INPT  83  00  192  M=1,NCRACK 

INPT  86  READ  (>,1060)  N,MIAG(N) ,B  FT A  (  N ) 

INPT  85  WRITE(6,1060)  N,M 1 AG( N ) ,8 t T A ( N ) 

INPT  86  192  BbIA!N)=hFTA(NJ/37.2V6 

INPT  67  1 96  CUN T 1  NUT 

INPT  88  C 

INPT  89  L  INITIALIZE  STRAiNS 

INPT  90  C 

INPT  91  OU  196  N=l,NUMEl 

INPT  92  NT  AG ( N ) =0 

INPT  93  DC  196  1=1,3 

INPT  96  196  EPSlIN.l 1=0.0 

INPT  >3  L 

1NPI  96  L  INITIALIZE  CUMULATIVE  DISPLACEMENTS 

INPT  97  L 

INPT  96  DC  196  1=1, NIO 

INPt  99  198  CU( 1 ) =L . 0 

1NP  T IOC  J J  =  L 


1NPT101  U1  1 W  I-I,NIIMPL 

I  NP  I  1 U  2  til'  HV  JU  ,4 

1NPI103  I'D  149  K*1,m 

i  NH 1 104  KK  = 1 Af  C (IX(1,J)-IX(1,K)I 

INHIU?  II  (KK.01.JJl  J JrKK 

INP  T106  l',9  CL  N  TIN  UL 

INK  1 107  NEAN0  =  .*JJ-*2 

INPIlOb  NL  =  ( N  T  11 1  -N1  c  +  1  )  /  (  NEl  ANl>+  1 1 

INK IIOS  NLL-NI 0*3 

INPT110  IP(NL.GT.NLL)  NL=NLL 

1NPT111  NL=NL/4 

1NPT112  NU=2»NL 

1NP1113  NL=4*NL 

1NPT  1 1 A  IMNO.Gt  oNBANO)  Ot)  TO  tU9 

INP  1 1 1  S>  WRlTb  (6,4010)  NL.NBAND 

1NPT116  CALL  F X  1  I 

INP1117  209  N16=N 1B+NL 

INPTllb  N17=N16-FNL*NEAN’l 

1NPT119  JJ  =  N1 7— NTOT 

JNPT120  lFIJJ.Lt.OI  00  TO  210 

INP1121  WHITE  ( 6 , 30C  C I  JJ 

1NPT122  CALL  PX1T 

1NP1123  210  WRITt  (6,9000)  N1 / , M7 ,NL , NR  AND 

1NPT124  C 

1NPT12S  C  RtAO  CONTROL  INFORMATION  FOR  I  HE  NFXT  STEP  IN  .  ..CP.  P'MFNTAl  AN  At  Y1  15 

1NPU26  C 

1NPT127  C  NUMBt K  OF  NOOaL  POINTS  MISSING  NPMIS  IS  INIRODUCtn  TO  TAKt 

1NP112U  C  LAPP  OF  FMP(Y  NdDAL  P0IN1S  IN  THE  PRtVIOUS  STtP  AND  NEW  NODAL 

1NPI129  C  POINTS  IN TRLOUC FD  AS  A  CONStCUtNCt  OF  CONSTPUCTIDN  OR  EXCAVATION 

INPIliU  C  EiQNF  DURING  IHIS  STEP.  NPMIS  IS  TAKtN  AS  THE  SUM  OF  I  MPTY  NUDAI 

INP1131  C  POINTS  DURING  (RfcVlOUS  STtP  PLUS  THE  NODAL  POINTS  VACATED  L’R 

1NP1122  C  AOOFO  1NTFUS  STEP  UPTO  NPMAX  . 

INPT1 j_  C 

INP1134  NC  AST  =  0 

1NPI13S  200  RLAD(S, 1046)  IITLt 

INPT126  WP  1  T  F  ( fc  » ?0t  i> )  TITLE 

INPllJI  RtA0(5,  1060)  NPMAX,  NtLMAX,  NUMtR ,  NUMPC,  MTYPE,  NCODt  , NPM 1  S  *M Afi(' 

INPI1JB  LLL  =  1 

1NP1139  111-0 

INPT140  JJJ  =  0 

INP  T 141  TOTAL =0.0 

1NPT142  S1(0I=0. 

1 NP  T 1 43  Sll.DJ  =  0. 

INPT144  i  02  1  F  ( NUMF  R • t » .(  )  (.0  lOtOn 
1NPT14S  HE  A I  (6*1030)  (NUMK(N),  N=  1 ,  NUMF  P.  I 

1NPT  1 46,  204  IEINPM1S.FL  .0  I  GO  'U  .06 

I NP  T 1 47  0 1 A  D(  6  *  10  JO  )  (NNP(MI,  M  =  1, NPMIS) 

1NPT146  C 

I  NP  T  149  0  DETEFMINE  '<ANDW  1 1  h 

1NPT160  C 


1NPT151  206  NUMEL-NH.MAX 

INPT152  NUMNP=NPMAX 

1NPT153  J«0 

INPI154  00  «£0 ft  N-l * NUMEL 

1NPT155  00  2LB  1=1,4 

INPT156  00  208  L=  1 , 4 

1NPT167  KK=|ABSI1XIN,  1  )-IX(N,L) ) 

1NPT16E  IF  (KK-J)  20b, 208, 207 

1NPT159  it) 7  J  =  KK 

INEllbO  20b  CONTINUE 

1NPI161  MBAN0=2*J*2 

1NPTI62  IF  (NPM1S.EQ.0)  OU  TU  215 

l.’tPTlbi  DU  212  1  =  1,  NPM1S 

1NPU64  J  =  NNP  <  1 ) 

1NPT165  CU(2*J-1)  =  U. 

1 NPT166  212  CU( 2*J)  =  0. 

INPT167  C 

1NPI16B  C  PRINT  (IUT  CONTROL  INFORMATION  FOR  THE  CURRENT  STFP  IN  1  NCR t MFN T AL 

1NPT169  C  ANALYSIS 

1NPT170  C 

INPT171  215  1 F ( NCUDfc •  EQ  .  1  )  GU  TO  240 
INPT172  lF(NUMFR.EG.C)  GU  TL  220 

INPT173  WR1 TE(6,2060 INCASE , NPMAX, NELMA X, NUMPC ,NPH IS, (NUMR IN) ,N=1 ,NUMFR  ) 

INPT174  GO  TU  230 

INPT175  220  WRITE  (6,2060)  NC  ASE.NPMAX.Nfc  LM/ X , NUl,rC ,  NPM 1  S 

INPT176  230  IF(NPMIS.EU.O)  (.0  !0  270 

INPT177  WR  I  Tt  (  6 ,2065  1  (  NNP  (Ml  ,.‘1  =  1.NPM1S) 

1NPT178  GO  TU  270 

INPT179  240  IF(NUMER.EQ.O)  GU  TO  2  3 

INPT180  WR1TL(6,2070)NCASE, NPMa  a*NE  LMAX, NUMPC ,NPM 1 S , ( NUMR IN)»N=1,NUMER  ) 

1NPT1B1  GO  TO  260 

1NPT162  250  WRITEI6, 2070) NC ASF, NPMAX.NELMAX, NUMPC ,NPH I S 

1NPT183  260  lF(NPMlS.EO.O)  GU  TO  270 

1NPT184  WR1 TE ( 6 ,2065)  INNP(M)  ,M  =  1.NPM1S) 

1NPT1B6  C 

1N°T 1 86  C  IF  THERE  ARE  ANY  BOUNDARY  PRESSURES  FOR  THIS  STEP  READ  ANP  PRINT 

INPTlb7  C  THIS  DATA 

1NPT188  C 

1NPT189  270  IF  (NUMPC)  290,310,290 

INPT190  290  WRITE  (6,2075) 

I  MPT  191  TO  300  L=l, NUMPC 

1NPT192  RE ' 0 ( 5 , 1 060  )  I BC  (  L )  ,  J8C  ( L  ) ,  PR  (  L,  l ) ,  PR  ( L  ,  2  ) 

INPT193  300  WRI TE(6, 20801  1 BC ( L ) , JBCI L ) , PR ( L , l ) , PR  I L , 2  I 
1NPTI94  310  CONTINUE 
1NPT195  C 

1NPT196  C  CHANGE  MA1ER1AL  TYPE  FOR  ORIGINAL  ELEMENTS 

1NPT197  C 

1NPT148  IF(MAOO.fcH.C)  GU  TO  336 

INPT199  WRI TE ( 6 , 2082 ) 

1NPT20G  READ! 5, 1030 )  (MAD ( 1 ) , IX (M AO ( I ) , 5 ) , I =1 ,MAPP) 
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1NPI,  Ol  WP 1  IL  (t .,i'ub  J)  C  ’1AtJ  (  !  )  tlX(MACll  II  ,b  )  «  1  =  I  ,M ADD ) 

INPT202  IHJ  335  IM.MAIU 

INF  I  203  N-M ACM  I  ) 

1NPT2G4  DO  335  J-1,J 

INPT205  S1GI1N,J)=0. 

INPT2O6  j35  (PSI1N,J)=G. 

INPT2C7  336  CUNIINUL 

INPT2UE  C 

1NPT20V  C  Ik  INITIAL  S1RESS  CUND1I1UN  IS  TO  BE  ANALYSED  INSTEAD  Of  INPUT , 

INPT210  C  USf  NUMER  =  0  AND  DIRECTLY  PROCEED  TU  SIIEF. 

INPT2I1  C 
1NPT212  C 

INPT213  C  CLRRECT  MATERIAL  TYPt  FOR  L LEMrNl S  REMOVED  OR  ADDED.  SFT  INITIAL 
1NPT214  C  STRFSSFS  EOUAL  TO  ZERO 

INPT215  C 


INPT216 

IF  INUMER.Fw.O)  GO 

1NPT217 

00  330  1  =  1  , NUMER 

INPT2IB 

NUM  =  NUMR ( 1 1 

INPT219 

IXlNUM,5)=MTYPt 

1NPI220 

00  330  J=1 , 3 

INPT221 

S I U  I  ( NUM  *  J )  =  0.0 

INPT222 

330 

EPS11NUM,J)=0.0 

INPT223 

340 

SR=0. 

INPT224 

345 

CONTINUE 

INf  T225 

DC  350  N  =  1 * NUKt  L 

1NPT226 

_>50 

RAT101N)=1.0 

INPT227  C 

1NPT22B  C  ElRM  STIFFNESS  MATRIX  IN  BLOCKS  FOR  THIS  STEP 

INPT229  C 

1NPT230  CALL  SOLVE  ( R ,Z ,COPf ,UU ,CU , P I , B J , T . S I G 1 , EPS  1 , S 1GNM, BETA , 

INPT231  .  RATlC,PR,AA(Nly),AAtN16),lX,MTAG,NTAG,JNT,IBC,JBC) 

INPT232  IF  1  STOP .Fu. 1 . I  CALL  EXIT 

INPT233  C 

INPT2 34  C  SUL VF  MATRIX  EUUATIUNS 

INPT235  C 

INPT236  CALL  b  AN  SDL  (  A  A  ( N  lb  )  ,  AA  INI6 )  ,  MBANU  ,  NBANI)  .NUMBLK ,  NL  t  J  A  ) 

1NPT237  CALL  S TRESS <R,Z, CODE, UU ,CU, B1 , B J ,T , S I G 1 , EPS  It SIGNM, BETA, 

INPT238  .  RATIO* PR,AA(N1S) , A A 1 N1 6 ) , I X ,MT*G , NTAG * JNT, I BC * JBC ) 

1NPT23V  C 
INPT240  C 

INPT241  CALL  SCALE  ( IX  ,  MIAG.NTAE  ,  JNT,  RA  T 1 0,  BE  TA  ,  S I G I  ,  3 ICNM  ,  E  PS  I  ,CU* 

1NPT242  .  AA ( N 15  I , AA IN  16 1  I 

INPI243  C 
INPT244  C 

INPT243  JJJ  =  1 

INPT246  1FI  JCHECK.lCi.O)  GO  TU  400 

INPT247  111=111+1 

1NP 1240  WRITF(6,20B4)  LLL.1I1 

INPT249  NK  T  =0 

INPT^SO  NML=NUMEL/2 
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1*81251 

INPT752 

1NPT253 

1NPT254 

1NPT755 

1NPTZ56 

1NPT2!)7 

INPT258 

1NPT  259 

1NPT260 

1NPT261 

1NPT262 

1NPT263 

1NPT264  C 

1NPT 765  C 

1NPT266  C 

1NPT267  C 

1NPT268 

1NPT269 

1NPT27G 

1NPT271 

1NPT272 

IMP  1 273 

1NPT274 

1NPT275 

1NPT276 

1NPT277 

1NPT278 

1NPT279 

1NPT280 

1NPT201 

1NPT282 

1NPT283 

1NPT284 

1NPT285 

2.NPT2B6 

1NPT287 

1NPT2B6 

1NPT289 

1NPT2V0 

1NPT751 

1NPT2V2 

1NPT293 

1NPT294 

1NPT295 

1NPT296 

1NPT297 

1NPT29B 

1NPI2V9 

INPT’uO 


DO  380  N«1,NUHEL 
1F(MTAG(N).GT.2)  NX.T»,VXTM 
IF  INK  [.LI. NMD  GO  TO  380 
WR1TEI6, 20051  NKT.NML 
CALL  F  X I T 
380  CONI  1 NUt 
GU  IU  34i> 

400  IF  ( TO  TAL  .CO .1 .0  I  GO  TO  600 
LLL*LLLtX 
111®0 

4*>0  GO  TO  345 
600  CONTINUE 

1 F INCASE .Gt . 1  I  GU  TU  600 

IF  THF  INITIAL  STRESSES  ARE  EVALUATED  IN  THIS  STEP 
UNITIALIZE  CU 

DO  750  I  =  1 • NE 0 

7 so  cum  =  o.o 

BOO  NCASE  =  NCASF  ♦  1 

IF(NCASE.LE.NGTLP)  GO  TO  200 
10X0  FORMAT  <  21 5 ,1F1g.3«?15 I 
RETURN 

1015  FORMAT ( 3E 1 0 .3  I 

1020  FORMAT (FlO.3,tl0.O,2F10.4I 

1022  FORMAT (4F10.4) 

1025  FORMAT  ( 1 5  » E 5 • 1 *5r 1 0 . 4 1 
1030  FORMA  T 1 16 15 ) 

1035  FORMAT (5151 
1040  F0RMAT(215»F1G,51 
1045  FORMAT  1 16A4I 
1050  FORMAT  I  8 15 1 
1055  FORMAT  (16151 
1060  FORMAT (215,2610. 3) 

2010  FORMAT  ( 17H0MATER 1 AL  NUMBER®  13,  30H,  NUMBER  OF  TEMPERATURE  CARDS® 
1  13,  15H,  MASS  DfcNS 1  TV*  E12.4,16H,  MATERIAL  CODE*  13 
2.16H,  MATERIAL  1.0.=  131 

2015  FORMAT! 1BH0TLNS1LI  STRENGTH=bl 2.4, 21 H,  COLFF.  OF  FR 1CT |0N=E12.4 
*,19H,  INITIAL  OPENING  ®  EI2.41 

2020  FORMAT  (15H0  TEMPERATURE  10X  5HE  9X  6HNU  5X  6HALPHA  / 

*(F15. 2,3 E15.il) 

2022  FORMAT ( 1 5H0  MODULUS  RATIO,  15H  ANGLE  OF  FAULT, 15H  FRICTION  COCF., 
*15H  SHEAR  STRENGTH  /(4E15.31) 

2025  FORMAT  (108H1NUDAL  PU1NT  TYPE  X  ORDINATE  Y  ORDINATE  X  LO 

1AD  OR  DISPLACEMENT  Y  LOAD  CR  DISPLACEMENT  TEMPERATURE  1 
2030  FORMAT  ( 1 12 ,F 12 .2 ,2 F12 .5, 2E24 .7,F 12. 31 
2035  FORMAT  (26HONOOAL  POINT  CARD  FRROR  N=  15) 

2040  FORM IT(120H1ELEMCNT  NO.  1  J  K  L  MATERIAL 

IS  101:  X  S1G1YY  SIG1XY  ) 

7045  FORMAT  ( 113 , 4 16 , 1 12 ,3F 1 2. 3 ) 
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Bl  TA  '/) 


INPlJbl  2u5U  KJKMAI  ( IHl  ,  •  1 N 1 T  1  ALL  Y  CRACKED  ELEMF  N1 S'  / 1  •  EL.  Ml  AO 
INP13C2  .0* .5  FOHMATI  Ull  EE  A*.  / / / /  ) 

INM  303  20A0  EOkMAlI  '  Rt SOLIS  AFTER  STfc  P  NO. - *  •  *  -  / 

1NPT304  I'  it'TAL  NUMBER  UP  NODAL  Pl.INTS  IN  SYS1EM  Al  THIS  SIFP - '*11/ 

1NPT 305  2'  TOTAL  NUMBER  OF  ELEMENTS  IN  SYSTEM  AT  THIS  STEP - •*!•/ 

1NP13U6  3'  1 0 1 A  L  NUMbl  P  UE  PRESSURE  CARDS  AT  THIS  STEP - ’«!'/ 

INHIjOf  4'  TOTAL  NUMPI  k  HE  NODAL  PUINTS  MISSING  AT  THIS  MEP - SI1/ 

TNPT3GU  !*•  LLEMENTS  Kt MOVED  IN  THIS  STEP  ARl  •  /<2tI5i) 


INPIjOV  2005  FORMAT  (  '  NUMBERS  OF  NODAL  PUINTS  MIS!  INC  Hi  THIS  SUP  ARl  '/ 

INPT31U  1(20151) 

INPT 311  20/0  EOPMATl  ’  RESULTS  AFTER  STEP  NO. - SUV 


INPT 3 12  l*  lUTAL  NUMbER  OF  NODAL  PUINTS  IN  SYSTEM  AT  THIS  STEP - SUV 

INPT313  2 •  TOTAL  NUMBER  OF  ELEMENTS  IN  SYSTEM  Al  THIS  STEP - SU/ 

INRTJ14  2'  TUTAL  NUMBER  OF  PRESSURt  CARDS  AT  THIS  STLP  - SU/ 

INP1315  A !  TUTAL  NUMBER  OF  NODAL  POINTS  MISSING  AT  THIS  STEF - S  15/ 

1NPT31A  5'  ELEMENTS  ADDED  IN  THIS  STEP  ARE  '  /(20I6I) 

INPI317  2075  FORMAT ( 29HUPK  E  S  SUP  L  BOUNDARY  C0ND1T 1DNS/40H  I  J  PKFJSUR 


lNPI31b  IE  I  PRESSURE  Jl 

1NPT319  2UbO  F0RMAT(216,iE 1A.3) 

INPT 3 20  20B2  FORMAT!///'  MAI ER 1 AL  TYPES  CHANGED  AT  THIS  STEP'//'  EL.  MTYPE  • ) 

1NPT321  2C83  FORMAT  1215/1 

INPT j22  2U84  FORMAT ( 1H 1  * '  SIART  ITERATION  TO  UbT/lN  SYSTEM  STABILITY  UNDER  IHl 

1 NP  f  3  l  3  *LCAO  1 NCR t  PENT  NO. ',13/ 

INP132A  *'  SYSTEh  I  I AL  A L I T Y  ITE R AT  ION  NO . S 1 3// ) 

INPT3/5  2085  FURMAT ( •  NUMBER  UF  ELEMENTS  CRACKED  -*,14,'-  kEACHES  THE  LIMIT— '.i 
INPT326  PKOCKE SS I Vf  FRACTURE  IS  LEADING  THE  SYSTEM  Tu  TOTAL  FAILURE') 

INPT327  200C  FORMAT  <70H  PROGRAM  EXECUTION  TERMINATED.  REQUIRED  CORE  EXCEFOS  MT 
INPT328  .(IT  EY  1U») 

INPT329  4000  EtiRMAl  <47H  EUR  THIS  PRObR/M  THE  LOCATION  USED  IN  AA  IS  =  15, 

'.NPT33U  .  17H  AND  IN  1A  IS  =  15/ 

INPT 33 1  .  18H  MAX  BLOCK  SIZE  =  15/ 

INPTjV  .  1 8Pi  MAX  BAND  WIDTH  =  15/  ) 

1NPI333  4010  FORMAT  (25HU  NL  IS  LESS  THAN  2*MbAND  / 

INPI334  .  5H0  NL=  15/ 

INPT 33 5  .  6H0  Mb AND=  151 

IMP  I  3-6  END 


Sl'LV  l  SUBRUU  1 1 N  t  SULVt  (ft  ,  Z, CODE  ,UU«CU,BI,BJ,T,Sl0l,EP51«SIGNM,BE7A, 

SOLV  >  .  RAUO,PR,H,A,IX,MTAG,NTAG,JNl,IBC,JBC> 

SLLV  3  C 

SOLV  ft  CUMMCIN/ONf  /  NUMNP , NUHEL tNUMMAT ,NUMPC , NPC ,M8AND,NUM8LK ,NL , MTYPE , N , 

SOLV  5  .  V0L*ALFLR»ALI-LZ*0*HFD( IB) , STOP, SR ,  SRl»TlTAL»TUL»TnLl»XC*YC« 

SOLV  6  .  UNP, SIGN, MODI, S1GDJ, 

SOLV  V  .  LLL, 111,  JJJ,JCK,K(HECK,JCMF«,NPLANE,NUMtR,NCOO£,JA,NEQ 

SOLV  B  .  *NBAND»NCKACK*NST(P,N15*H7,NTOT 

SOLV  9  COMMON/TNU/  C  (3 , 3 1  ,  SUO,  10) ,  SlG(fr) ,  P(6I  ,  ST  (  3 , 10) ,  RR  (  5 1  ,Z  Z  (  5  I , 

SUL V  10  .  LM  ( ft ) *  l  E  ( 3 ) , EP S I  3 1 

SULV  11  COMMON/ THREE/  F ( b , ft, 81 lEOIft , B I ,1ENS( 81  , XNU ( 8 1 ,R0 ( B I ,EPST ( 6 1 , 

SOLV  17  .  MfCISI ,NTC(8l ,H1D(BI 

SOLV  13  DIMENSION  R (NUMNP I , Z< NUMNPJ , CODE (NUMNP I , UU( NUMNP , 2 1 , CUINEO ! , 

SOLV  1ft  <8 1  (NEO  1 1  b  J  ( NEC)  ,  T  (NUMN P  I ,  S 1G1  ( NUHEL , 61  ,E  PS  1 1 HUMEL , 6  I  , S lUfiM  ( NUMF L  ) , 

SOLV  IS  .BETA(NUMEL) ,RAT 10 (NUMEL » , PR (NPC ,Z I , 1 X (NUMF L , 5  I ,MTAG  C.UMEL I , 

SOLV  16  •NTAG(NUMEL)«JNT(NUMEL)«1BC(NPC) , JBC (NPC) 

SOLV  17  DIMENSION  B (NL1  , A (NL.NBAND) 

SOLV  18  NB=NL/4 

SOLV  19  ND=2*NU 

SOLV  20  ND2=2*ND 

SOlV  21  STOP=0.0 

SOLV  22  NUMBLK=D 

SOLV  23  NBK*1 

SOLV  JA*ND  ♦  (MBAN0+1I/1S 00+1 

SOLV  25  DO  SO  N®1 »ND2 

SULV  26  B(N)=D.O 

SOLV  27  DO  50  M=l,HbANH 

SOLV  28  50  A(N,M)=O.D 

SOLV  29  6D  NUMBLK=NUHBLK* 1 

SOLV  3D  NH»NB*(NUMBLK+1I 

SOLV  31  NM«NH-NB 

SOLV  32  I1LL=NM-NB*1 

SOLV  33  KSMIFT=2*NLL-2 

SOLV  3ft  00  210  N= It NUMEL 

SOLV  35  MTAG1=MTAG(N) 

SOLV  36  ICHECK=0 

SOLV  37  LCHfcCK=l 

SOLV  30  ID=N 

SOLV  39  MM=4 

SOLV  ftO  IF ( lX(N,3I.F0.1X(N,ftl I  MM=3 

SOLV  ftl  1 F ( IX ( N  ,3  I .F0.IX(N,2)I  MM=2 

SOLV  A2  IF  ( lX(Nt  51  I  210,210,65 

SOLV  43  65  DO  DO  1=1,4 

SOLV  44  IF  ( IX (N, 1 1 -NLLI  80,70,70 

SOLV  45  7D  IF  ()Y(N,l)-NM)  90,90,80 

SOLV  46  80  CONT. NUE 

SOLV  47  GO  70  210 

SOLV  *,8  90  IF(NTAGlNI.EO.l)  GO  TO  92 

SOLV  4V  1F(MTAG(NI ,G1 .21  00  TO  99 

SOLV  50  iFtli.LL»GT»l)  .AND  .( MT  AGIN). E  0.0)  GD  TO  99 
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MIL  V  'll  If  III  1 1  .1.1 .01  .ANO.IMIACINl.FO.GI  J  GO  1U  99 

SLLV  52  IM  IX(N,3I-IX(N,21 1  95,85,95 

SOLV  53  Ob  CALL  ON  I  0  ( R  ,2,C  uDt  ,UU ,  CU,  b  1  ,  b  J ,  1  ,  S I G I  ,  t  PS  I  ,  S  )  GNM ,  bM  A , 

SI'LV  ;.4  .  RAI  1U,PK,'J,A,1X,MIA&,NTAG,  JNT,IBC,JFC  I 

M  LV  bb  GO  III  9b 

SI  LV  56  9b  CALL  t  L  t  Ml  N  ( R ,  Z  ,CCin  t  ,UU ,  CU,  B I ,  P  J,  T  ,  S 1 0 1 ,  F  PS  1 ,  S ICNM ,  Bf  I A  , 

SCILV  5  7  .  KAI  10, PK  ,l>  ,A  ,  i X ,MTAG ,N I  AG ,  JNT,  IBC,  JbL) 

SC  LV  bb  N1AG(N)=0 

SC  LV  59  99  ICHFCK=1 

SLiLV  60  C  ****************************************************************** 

SCLV  61  C  *  WRIll  t  LE  PtM  1NFCJRMAT  1LIN  ON  FILfc  <_  * 

SLLV  62  C  ****************************♦,***♦*************************♦<.<.*»** 

SOLV  63  WRITr-U*ll>)  ( <C<11K,JJKI,JJK=1,3),FE(11K),11K=1,3) 

SOLV  69  1  ,  (  (S<  JJ1  ,KK1  )  ,KKi=l,Bl,JJl=l  ,6)  ,(  (  ST  (  1KK.JKK)  ,JKK=l,b)  ,IKK=1  ,  jl 

SLLV  65  2  ,<P.R(  J1 1  I, 2Z< J1 1 1 , J1 1*1,4),XC,YC,  1 FMP,VOl,MTYPE , N 

SOLV  66  99  1X(N,5I=-1X(N,5I 

SLLV  6V  IF HLLL.GT. 1 ) .OK. < II I.Gl.Ol)  CO  TO  1C1 

SUV  66  1  F  (  VUL  I  100,190,101 

SOLV  69  100  WR I Tt (6 ,20001  N 

SULV  70  STUP  =  1.0 

SOLV  71  C  ****************************************************************** 

SULV  72  C  *  LA LCUL A T L  NUOAL  POINT  FORCES  * 

SULV  73  C  *********************♦*********♦*****.,************************»*** 

SCLV  74  1 9 1  Ir  ULLL.LO.  1)  .ANC.  ( 11 1  .LL.O)  I  GO  TO  14b 

SULV  75  IF(  lCFILCK.Lc.il  00  TO  10b 

SCLV  76  RIADIZ'IUI  (  ( C  ( 1 1 K ,  J  JK  1 ,  J  JK=  1 , 3  1  ,  F  L  ( 1 1 X  I ,  I  1  K  =  1 , 3 1 

SCLV  77  I  ,(<S<JJI,KK.ll,KKl*l,b),JJl  =  l,Bl,<<ST(lKK,JKKl,JKK=l,ei,lKKK,?l 

SULV  7B  2  ,(KR(J11),ZZ(J11I,J1I=1,4),XC,YC,I EMP, VOL, M TYPE, N 

SCLV  79  GO  T(J  166 

SLLV  TO  C 

SCILV  bl  C  LVALUATt  SIRisS  THANSFORMA IION  MATRIX  AND  STRESSES  TO  &F  RFLFASC  R 

SULV  82  C  FUR  NCWLY  FRACTURFD  tLtMFNT  ONLY 

SOLV  83  C 

SOLV  84  105  1F(  IX (N,  2  1.1  0.1X(N,3II  Gil  10  166 

SOLV  bb  00  106  1=1, J 

SOLV  86  IF ( Sl&l (N, | | .NL.O.  I  GO  10  110 

SULV  87  106  C0N1INUL 

SOLV  Ot  LCHCCK=0 

SLLV  i>4  00  10  154 

SCLV  90  11C  IF  (MIA01NI  .1st  .01  GO  TO  111 

SC  LV  91  SIGH  1  =  C. 

Si  LV  V  SI  G  1 2  I  =0. 

M  LV  >  SIC (31=0. 

SULV  94  GU  10  154 

SCLV  4b  111  IF  (M1AMNI  .N*  .4)  (.0  IU  112 
SLLV  So  00  112  1=1,3 

S(  LV  9  7  S 1  G  ( 1  I  =  —5  I G I  (  N  ,  1 1 

U  LV  4f  U2  S1CI(N,1I=0. 

SI  LV  94  GO  Iv  154 

Sl'LVlOO  113  FPSX=bl  1«  INI 
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S11V101 

SULVIO? 

SOLVIOJ 

SULV104 

SOLV105 

S0LV106 

SULV107 

SULV108 

SOLVIOY 

solvuo 

SULVlll 

SULV112 

SULV113 

3CLV1 14 

SOLV115 

S0LV116 

S0LV117 

SOLV116 

SOIV11V  C 

SGLV120  C 

SULV121  C 

SGLVI22 

SULV123 

SULV124 

SULV125 

SOLV126 

SOLV127 

SULV128 

SOLV124 

SOLVUO 

SOLV131 

SOLV132 

SOLV133 

SCLV134 

SGLV13S  C 

S0LV136  C 

SGLV137  C 


CC=C0S<FPSX1 
SS  =  SINl EP5XI 
S2  =  SS*!.S 
L£*gC*LC 

sc«ss*cc 

SC2«2.D*iC 

CSOC2-S2 

SIGXX=C2*SIGl (N,l )*S2*S1G1{N,^ )*SC2*5IGKN,3) 

SIGYY  =  S2*S1G1 <N,1 1 4X2*510 11N,2  >-SC2*SIGI  (  N,  3 > 

SIGXY=-SC*<  S1GI <N, 1  1-S1G1 (N,2) >*CSD*SIGI (N,3  ) 
0X=EE(2)*SIGXX 

SJG(1 )=C2*SIGXX4SL*0X-SC2*S1GXY 
SIGI2 )=S2*S IGXX+C2*DX*SC2*SIGXY 
S1G(3)=SC*( SlGXX-DX )4CSP*S1GXY 
DO  144  l«l,3 

S1G1(N,1)  =  S1G1(N,1)-S1GU> 

144  SIGI I 1  *-S 1G (  1 ) 

CO  TU  154 

CALCULATE  TFMPfcRAlURf  STRESSES  , FOR  LLL*1  AND  III=D  ONLY 

145  DT =TEMP-Q 
DX  =  EE ( 3 1 *L  T 

SIGH  )=-(C(  1. 1)+C(  1,2)  )*UX*SIGl(Nf  1> 

SlG(2)=-(C(2,2l *C  (1  ,21  >*DX4SIGHN,2) 

S I Gl 3 1 =S 1G 1 ( N , 3 1 

154  IE(IX(N,2).EG.1X(N,31)  GO  TU  166 
GO  160  1  =  1,8 

pi  n«o.o 

IE  (LCHtCK.EU.O)  GCI  TO  160 
DC  155  J-1,3 

155  P( 1>*P< | l-STI J, I )*SIG( Jl 
160  P( 1 l=P( 1 )*VGL 

1F(  (LLL.GT.l)  .OK.I  1U.GT.011  GO  TO  166 
CALCULATE  BUOY  EURCES,  FOR  LLL  =  1  AND  111=0  ONLY 


SOLV138 

163 

XMM=MM 

SULV134 

DY=VGL*ACFLZ*RU(MTYPE  l/XMM 

>ULV140 

OX=VOL* AC t LR*RU ( M 1 YPE 1 /XMM 

SULV141 

00  165  1=1, MM 

SGLV142 

P(2*1I=P(2*1)+0Y 

S0LV143 

165 

P(2*I-1)=P(2*1-1)*DX 

SULV144 

166 

CONTINUE 

SGLV146 

167 

DO  168  1=1, MM 

S0LV146 

168 

LM( 1 1 =2*IX (N, 11-2 

SULVI47 

DO  200  1=1, MM 

3IJLV1<.6 

DO  200  K«l,2 

MILV14Y 

1 1  =  LM (  1 1 +K-KSHIET 

SOLVUO 

KK=2*l-2*X 

S(  LVI61 

SDLV162 

5ULV163 

SliLV  154 

cl'LV165 

5.JLV156 

bl  LV  157 

SDLV158 

5LLV15V 

KILVltO 

LLLVlOl 

S.ULV162 

SULV163 

5ULV 164 

SliLV  165 

50LV166 

6DLV167 

5ULV  1 66 

5ULV169 

SULV17C 

50LV171 

SC.LV172 

SL'LV173 

SULV174 

SCLV175 

SOLV  176 

5CILV177 

SULV17b 

SULV174 

SULVIPO 

SULVU.l 

6ULVlb2 

:.:.ilvii'2 
SLLV1H4 
U.LV1B5 
SI  LVIKb 
SULV1I17 
5LLV1»8 
M'LVItV 
'  I LV1V0 
SILVlVl 
61LV142 
L !  *LV  1  ■#  3 
U UV 144 
61 LV 1 VS 
SOLVIVh 
6PLV1V7 
M LV1V8 
'(/LV1''9 
SULV200 


IK  1CH1  LK.twJ.ut  0  L  TO  17? 
b (  111-Kill  *P(KK  I 
172  HO  20C  J=1,MM 
DO  ?00  L=i,2 
JJ  =  IM(  Jt+L-I  I+1-KSH1!-  I 
LL-?*J-2+L 
1K.IJ)  1 00 1 700  ,  176 
176  lF(ND-JJ)  180,146,145 
1BU  WRITE  (  6 , 2  0  (  L  )  N 
6T  UP=  1 .0 

oo  ro  210 

146  A( 1 1, J J )  =  A (  11  ,JJI*S(KK,LL) 

200  CUNUNUE 
210  CONTINUE 

IK (LLL.GT.ll .( R. ( 111.6T.0I )  GU  TO  301 
0(1  220  \'=NLL,NM 
1FIN-N  MNP  )  216,215, 220 
215  K=2*N-KSH1F1 

n<M  =  B(KI+UL<N,. I 
b(K-ll=fi(K-ll+UU(N,ll 
t20  CUNI1NUF 

IF(NUMPC)  226,301,225 
225  DU  30C  L=  1  , NtJMPC 
1  =  1  bC  1  u 

J- JbL ( L  I 
DR- 7 1 1 1-21 J  I 
D?  =  M  Jl-M  1  I 

PP2KPP  (L.21+PR  (L,l  1 1/6. 

PP 1 =PP2  +P  K( L, 11/6. 

PP2=PP2+PK(L,2l/6. 

1 1=2*1  -K.SH1  PI 
J  J  -  2*  J— F.5H  1 PT 
IF  (  11  I  266, 2o!  ,235 
l31.  1F111-NDI  240,240,205 

240  b(ll-l l=b< 1  1-11 +PP1*DK 
b(  1  1  )=K  1 1 1 +PP1*P2 
2(5  1F1JJI  300,300,270 
270  1F1JJ-ND1  275,275,300 
276  fc ( JJ-1 >=t ( JJ-l )*PP2*DP 
h( JJl=a(JJI+PP2*C2 
jOO  CUNT1NUF 

301  CONTINUE 

1 l=N0*(NUM8LK-l 1*1 

JJ-ND*NUMULK 

KK-C 

IF ( 11 l.NE.OI  l U  IU  303 
DO  302  N= I  I ,JJ 

302  B J ( N I *L . 

303  IK  (LLL.FL  .  1)  .ANP.(  1 1 1  .Fl'.bl  1  00  TO  305 
OH  ID  313 
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6ULV201  305  00  306  N=11,JJ 

SULV202  KK«KK^1 

S0LV20J  306  ftl{N|xb(Kk| 

SE1LV204  GO  To  310 

50UV205  313  FACI0R-5.R 

S0LV2U6  IF  (  1 1 1  ,'.-U.OI  F  AC  1  L'R  t 1  ,-TU  1 AL 

S0LV207  IFCLl' -FQ.ll  F AC TuR =TOTAL 

SULV20fl  00  314  ;  1 1 ,jj 

SOLV209  KK=KK*1 

SOLV210  B J I N 1  * B  J IT ) +b ( KK 1 

S0LV211  314  b(KK)=FACTOR*bl(N)+bJ(N) 

SOLV212  3)0  DO  400  M«NLL,NH 

50LV213  IF  (M-NUMNP)  313,315,400 

30LV214  315  U«UU<M,1) 

S0LV215  N«2*M-1-KSH  'FT 

SULV210  IF  (CODFISH  390,400,316 

SOLV217  316  IF  (CODF (Ml >1 . )  317,370,317 

SULV218  317  IF  (CODEIMI-2.1  316,390,316 

S0LV214  318  IF  (CODFIMI-3.1  390,380,390 

SOLV220  370  CALL  H001 FT ( A ,B ,N02 ,MBAND,NBAND, N,U> 

SOLV221  GO  TO  400 

SOLV222  380  CALL  MODI FY ( A ,6 ,N02 «MBAND,N6AND,N,UI 
SOLV223  390  U«UU(M,2I 

SULV224  N=N*1 

5.0LV225  CALL  MODI FY ( A , t ,N02 ,M6AND,NbAND, N,UI 

30LV226  400  CONTI  NOE 

SOLV227  C  *****************»*****************************»***********^****** 

5ULV226  C  *  WRITE  CLOCK  INFORMATION  ON  FILE  l  » 

50LV229  C  *****•*****♦****••******************************,  ******^*^»*»^^^»i, 

S0LV230  WR I TE  (  1 ’NBK  I (BIN) ,(A(N,HI,H  =  1,M8ANDI , N»1 ,NU ) 

GOLV231  NRK=N8K*JA 

SOLV232  DO  420  N*1,ND 

SOLV233  K*N*NO 

SOLV234  BINI=B(KI 

S0LV235  B(KI=0.0 

SULV236  DU  420  M*l,MbANL> 

SOLV237  A(N,HICA(K,H) 

SOLV23E  420  AIK, M 1=0,0 

S0LV239  IF  (NM-NUMNRI  60, *.t,0,4b0 

G0LV240  480  CONTINUE 

SULV241  RETURN 

5ULV242  2000  FORMAT  1 26H0NI  GA T 1 V E  AREA  ELFMENT  NO.  14) 

S0CV2A j  2001  FORMAT  (29H0BAM)  WIDTH  EXCEEDS  ALLUWABLf  141 
S0LV244  END 
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1  Nr  I 

1 

UNfcU 

2 

UNEU 

3 

i.Neu 

4 

CNl  D 

5 

l  Nl  U 

t 

l  Nt  () 

7 

i.  Nt  0 

C 

L  NE  U 

9 

l  NE  V 

10 

IN  ill 

1 1 

CNt  n 

12 

CNl  0 

13 

UNEU 

14 

UW  D 

15 

CNL!) 

16 

I.NEU 

17  C 

l  Ntf) 

lb 

ONtti 

14 

UNEU 

20 

l.Nf  [i 

21 

l  NlO 

22 

INK) 

23 

LiN L  0 

24 

ONED 

2  5 

CNLli 

26 

lned 

27 

(INI  U 

2  b 

l  NLO 

C4 

ONED 

30 

UNEI) 

31 

USED 

32 

INtU 

33 

t  ini  n 

34 

l  Nt.  [i 

35 

UNM, 

36 

UNtO 

31 

IJNEO 

30 

UNED 

39 

(INK) 

40 

CNl  (i 

41 

UNEU 

42 

(iNLU 

43 

UNED 

44 

UNED 

45 

(INK) 

46 

CNt  0 

47 

C  NE  0 

4b 

UNEU 

49 

UNED 

50 

iUCKIUUN'  liNt  I  (K,Z,CUiE,UJ,t*J,bl,t.J,l  .MG  ,  1  P  E  l  ,  SIC  NM,  !' E  I  <  , 

.  PA  I  II,  ,Pft  ,  L>,A,lX,MfAG«NTAG»JNT»IBC*JbC) 

CUMMON/UNE/  NvJHNP  , NUMEL  ,NUMMA  1  ,NUMPC.  , NPC  .MB AND  ,  NUMB LK  ,  NL  ,MT  YPE  ,  N , 

.  VUL,AU:Lk,AC£LZ,C,HtO(  IB  1 , STOP , -R , Sk 1  ,TG(AL,TUL,  TUL1  ,XC,YC, 

.  I EMP, SIGN, Cl  CD  I, 51  GO  J* 

.  LLL,  l l, JJJ, JCR.KCHECK  ,JCHECX,NPLANE,NUMER,NCCOE , JA.NtU 
.  ,NLA<ID,NCkACK,N$TLP,N15,E'  l.NTOI 
COMMON/  fWl7  C  (2  ,3)  ,5(  10,10)  ,51G(6)  ,P(&)  ,ST(3,10)  ,RR  (5)  ,ZZ.(  5)  , 

.  LMI4)  ,EE(3)  ,EPS(  3) 

CUM  MU  N  / THREE/  C( R,4,8 1  ,ll)(  4,  ft )  ,  JENS  (  d  J  ,  XNU « 8  )  ,  RU«  0  )  .EPS  KB)  . 

.  MTCm.NlCtbl.MtOlil) 

DIMENSION  K  ( NUMNP  1  ,  Z  (NU  MNP  1  *  CO  DE  ( NUMN" 1  *UU ( NUMNP »  2 1  ,CU(NEC) , 

•B  I  ( NE  0)  »  b  J(  NE  O)  ,T (NUMNP  ),  SI GI  (  NUMEL , 6 ) , E P SI  (NUMEL  ,6  )  . S  IGNMt NCME  L  )  . 
.BEU(  NUMEL)  ,kATlU(NUMfcL),°R(NPC,2)  ,  IX ( NUME  L  *  5 1  *  Ml  AG ( NUMEL 1  * 
.NIAGINUMEL ) .JNTINUMELI , I (,C ( NPC ) , J3C t NPC ) 

DIMENSION  BIND  .A(NL.NBAND) 

U  100  1=1,1 
P( I 1  =  0.0 

un  ico  j=i,a 
ico  si i »J )=o.o 

MTYPE  = 1 X  ( N  ,  5 ) 

I  =  I X  (  N ,  1 ) 

J=IX(N»2) 

DX=R( J)-P(  I  ) 

UY=Z( J)-Z(  1  1 

XC=  SuRT(nX**2+UY**2) 

CCSA=UX/XL 
SINA=OY/XL 
EE  (1)=K1,2.M1YPE  1 
t  E  I «’  1  =  L  (  1.3.M1YPE) 

COMM=Et ( 1)*EE (21/XL 
Sll.l  I=CtiSA*CUSA*COMM 
S< 1,Z)=CUSA*SINA*L0MM 

si  i,3i=-s(i,n 

..(1,4)=-S(1,2) 

•  ,2,11  =  5(1,.') 

S(7»2)=SINA*SINA*CUMM 

s(.’,ji  =  -s(i,:i 

SI  2, 4) 6-512,2) 

SU,1  )  =  S(  l»j) 

S(3,2)=S(?,2) 

S(3,3)=S(1,1) 

5(3,41=51  1,2) 

514,11  =  5(1,*.) 

S(4,2)=SI2,'.l 
S( 4,3 1=5(3,41 
3(4, 41=5(2, 2) 

EP=t ( 1,4, MTYPE )*E ( 1,1, Ml YPl 1 

rx=nx*i p 
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■’  . . . 


uni  n 

‘->1 

|IY*-UV  *1  0 

UNtU 

•>2 

Hm*5ii.i)*o(4si  i,?i*ov 

fiNIU 

53 

Ml  2  1  =  5(2*11  ♦,'X*SI2*2l*tlY 

UNI  U 

54 

136 

M1l*-I'lll 

I'NIU 

55 

mi'-Fti'  i 

UN  FI) 

56 

VllUl. 

UNI  0 

57 

mi  140  1=1*4 

1  NF-D 

5  b 

NPP“1X(N*1 ) 

IINlD 

5V 

PR  |  II=MNHP1 

UNI  U 

60 

140 

IH  It  =2  (NPP  1 

UNEO 

6  1 

XC=0.5*(KM 1 1 *KKI t  1 1 

UNFO 

62 

YC=0.5*(ZZI 1I+ZZI21 1 

UNFU 

63 

tlO  200  1=1,3 

(INF  U 

64 

DU  200  J=l,l) 

UNFO 

65 

?00 

ST  ( 1  *  J 1 =0.0 

UNED 

66 

00  300  1=1,3 

UNFO 

67 

OP  300  3=1 • 3 

UNtD 

6P 

O 

o 

'n 

Cl  1  ,J)=0.0 

DNFO 

6** 

«□  400  1=1*3 

CNLD 

70 

400 

EE  ( ,')  =  !  (i.Ul  ,M  TYPE  1 

UNFI) 

71 

C 

I  INK) 

72 

Kt IURN 

(INFO 

73 

c 

UN  10 

74 

ENC 
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I  LLM  1  SUcP.Uu'INi  i  L..MIN(R,Z, CUPP, UU,CU,Bl,hJ,r, SIC-'., PP31.S1C-NM,BFT7, 

ILIM  2  .  PAT iO,PP ,r,A,IX,MTAG,NTAG,JNT,IBC,JBC) 

LLlM  3  CUMMUN/O'NP  /  NLlMNP  ,N  UMP  L  ,NUMMA  I  .NL’MPC  ,NPC  ,ML  ANO,  NUMB  LK  ,  NL  ,MT  VH-  ,  N , 

(LPM  .  VUL.ACf  Lk,  AOtLZ,U,HF0(  IB  ) ,  SlUP.SR  ,SR 1 , TOTAL , TOL . TOL  I  ,XC,  YC  , 

tUM  9  .  ItMP.LUN.GlGftl.SILDJ, 

(LiM  <■  .  LLL,l]l,JJJ.JCK,KCHLCK.,JtHtCK,NPLANt,NJMtR,NCODL  ,JA,Nl.O 

ILI.M  7  .  ,Nl!AND,NOP  AoK ,Ni Tt P , N1 9 ,MY , nTOT 

(LPM  b  LUMMUN/TWCi/  L 1 3 ,3 ) , S C 10 , 10! , 3 I G (6 ) ,P ( b ) , ST  1 3 . 10 ) * RP ( 5 ) , 2 Z ( 5 ) , 

I  l>M  9  .  LM(4),l  FI3l,tPSI3i 

t  Lt M  lu  C  (jMMON/THP  t  P  /  M  L, ,  4,  b )  ,  KM  A,  ft )  ,  1 1  NS  (  d)  ,  XNU  (  8 )  ,R0  ( ft  1  ,  E  PST  t  fl  )  , 

ILIM  11  .  MlC(b) .NICft l,M10<b) 

tLtM  12  UIMLNSION  k ( NoMNP )  , Z ( NUMNP )  ,CODF ( NUMNP ) ,UU ( NUMNP , 2 )  ,CU ( N f U ) , 

I  LPM  13  .t  I  (NtQ)  ,BJ(Nf  u)  ,  riNUMNP  ),3IGI  (  NUMt  L ,  6 )  ,F  PS  1  ( NUMt  L  *6  )  ,  S  K-NM(  NUMLL  )  . 

HIM  14  .L  hTA(NUHtL)  ,rAl  IL)  ( NUMP  L  )  , PR  ( NPC  ,2 )  , 1 X (NUMPL , 9 ) ,MI AG ( NUMfcL ) , 

>LPM  1!)  .M  AGINUMt  L  )  ,  JN1  (NUMt1  ) ,  luCINPC)  ,  JBLtNPC  ) 

1LIM  16  DIMENSION  B (NL ) .A (NL ,NBANU) 

I LPM  17  njMPNSIUN  U( j) ,V( 3) 

tLPM  lb  C 

.LPM  19  ■PX=0.U0GG1 

tLtM  21)  l  =  1  X (  N »  1  1 

I LtM  21  J=1X(N,2) 

ILLM  22  K=lX(N,j) 

tLtM  23  L=1X(N,4) 

f  LP  M  24  MrYPP.  =  lX(N,5) 

(•LtM  29  VUL-O. 

t  LtM  20  (tMP=tl ( !)♦ I ( J)+T (K  )  +  T( L)  1/4.U 

I.LTH  27  RaTsO.O 

(LtM  tB  NUMTC=NTC(M  TYPL  ) 

(LtM  24  IP  (NUM(C.PO.l)  GO  TO  ICC 

t  LI  M  3o  UIJ  St  Ms 2  t  NUM  1 C 

t  LtM  31  IP  ( E  (  M  •  1  ,MIYPP  )-rPMP)  So, 60, 60 

■  LtM  32  00  LL'NT  1  Nllt 

tLti.  33  60  01  N=t(M,l  ,MTYP.  )-P  (M-l  ,l,MTYPt  ) 

(LLM  34  IP(DLN)  70,80,70 

(LtM  30  70  PAT  s( (LMP-t (M-l , 1 ,MTYPP 1 1/OPN 

(LtPi  36  (.0  00  90  KK=  1  t  3 

LLtM  J 7  40  PI (KK)=P(M-1 »KK  +  1 *H  T YPP )  ♦  k  AT  * ( t ( M , KK+ 1 ,MT YP P ) - t ( M-l ,KK  + 1 . Ml YP' )) 

(  L!  M  38  00  TU  106 

t  LPM  34  100  00  109  KKsl ,j 

p  LtM  40  109  P(  (KK)  =  E (  1  ,KK«1 ,MTYPL) 

LLtM  41  106  CON  T I NU t 

P  LI  M  42  0  *-!**/.***#****#♦***********************♦*#**************#********** 

L  LtM  43  C  *  CaLOULAIP  OPT  HO  1 ROP 1 C  FIAST1CITY  MATRIX  POR  MTAG=0,1,2  * 

I LtM  44  0  *<,*»*t6**A***************» **************************************** 

LLLM  43  KKK=H  T  AG ( M  + 1 

l LPM  46  CO  10  ( 117,107, IGB) ,KKK 

ILLM  47  107  OLNf.NUt 

PLPM  -h  C 

LLtM  49  C  M ] A0= 1 

I  Lt  M  90  C 
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HIM  51  EX=EEX 

ELEM  52  EV*1. 

HEM  63  GO  Tl'  109 

HEM  64  1  JB  CONTINUE 

ELEM  bb  C 

l LEM  bb  C  MTAG=? 

(  LEM  67  C 

ELEN  6B  EX°fcEX 

HEM  59  EY=EFX 

LLEM  60  1U9  CONTINUE 

f  LEM  61  GO  TO  (  1 1  Ot  1 1 1 )  t  NPL ANfc 

ELEM  62  110  CONTINUE 

ELEM  63  C 

ELEM  64  C  PLANE  STRtSS 

ELEM  65  C 

ELEM  66  EEl=Efc(l)*EX 

ELEM  67  EE2=tE<ll*tV 

ELEM  60  EFN-FEI 2) *EY 

LLEM  69  COMM=< 1.-IEE1/EE2 > ><EEN**2i ) 

ELEM  70  Cl?  «=EE1/CUMM 

ELEM  71  C12  *EEN'*C11 

LLEM  72  C2I*C12 

LLEM  73  C22=E  E2/C0MM 

ELEM  74  GO  TO  115 

ELEM  76  111  CONTINUE 

ELI  K  76  C 

ELEM  77  C  PLANE  STRAIN 

LLLM  70  C 

ELEM  79  EEl«fct(  1 1  *1  X 

ELEM  80  EE2«EF  ( I  )•'!'•  Y 

ELEM  01  FN1»EF ( 2 l ALX 

ELEM  t2  EN2=LF(2)»EY 

ELEM  03  EN j»EE ( 2 ) 

LLEM  04  X A*- 1  . -LN I *LN3 

l LtM  05  XB=I.-EN2«LN3 

ELEM  06  XC* 1 • ♦ EN3 

f  LE  M  07  X0*=EN2AXC 

ELEM  00  XEt=EE2/EEl 

ELEM  69  COMM»(XFAXA*XL-(tN29*2)*(XC**2))/EE2 

LLEM  90  C1UXB/C0HM 

ELEM  91  C 1 2*XD/C0MM 

ELEM  92  C21«=C12 

ELEM  Va  C22*XE*XA/CUMM 

LLEM  94  115  CONTINUE 

LLLM  96  EPSX*EiETA(N) 

E  LtM  96  P.CK=0 

ELEM  97  IHMIOIMTYPE I  .EO.C)  GO  TL  11? 

ELEM  VP  tPSX=E0(2,MTYPE I 

ELEM  99  IFIMTAGINl.NE.Ol  f P SX=E PSX-BF TA t N ) 

ELEM100  112  CONTINUE 
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FL‘Mll/1  SI-  SINK  PS.X  t 

lUMICt  S.=M*3l 

(  Lf  MU  i  K  =  CPS  (I  FSX  ) 

t  LtMl l  4  C2=Cl*Ll 

t  U-M105.  Cl S1=C1 «S1 

ILLM1CG  C2S2=C2»S2 

I  iM107  C4=-L2**< 

.lIMIOH  S4=S2*S. 

HKMICS’  D*-Cll*t,'7 

I  LKMllP  lm-CJ  1-1  U 

ILIMtll  PC =t 22 -Cl 2 

l  UM1  1  2  00=2. *C2S.  *(  1. 

i  l f m 1 1 3  u  i.n=-LH»en+cr+s4*L2i' 

I  LI  M  1 1 4  C(  1 ,2  )-L<  si;  ♦U*+  IC‘.*S‘.l*Ul 

l  L  t  M 1 1 1>  L  (  1  ,3)=ClM*(C2*L>b-!>2*lJC) 

I  LI  Mllfc  CI1  ,2)=S4*Lll+Crn-t4*C22 

L  LI  Ml  17  L  (  2,  J)=C1S1*I  o?*r»h— C/*tK  ) 

I  LI.Mllli  C I  2 ,3 ) =C2S2 ♦ I f '  {.» ♦  I  >  C  ) 

IUM114  IK  (MiniMTYPl  I.LO.O.I  R.IKCK.LL.in  L.C-  It  1 1  IS 

LLIM12U  IKhIAOINI.NI  .0)  KCK=1 


t  LFM1 2 1 

(•  =  u.5*LEl/(  1  .  ♦  I  LX**2)*F| 

HIHlift 

FPSX=2.*I  PSX 

t  L I  M 1  2  2 

Si=SlN(FP$X) 

1  LLM12-* 

Cl =  COS I  LPSX ) 

1  Lt-Ml^S 

SC=S1*C1 

t  L  L  M  1  2 1, 

S1=S1*31 

1  L 1  M  )  2  7 

Cl-L 1*C1 

i  li  m 

Cl 1  *0*1.1 

HIHUS 

C.12--C  1  1 

1 LLM130 

CJ..=-l.*SL 

l LIM1 jl 

C  2<  =C11 

tl CM, j? 

Ci'-P-Cl  j. 

1  Ul  IIP 

L  ?  3  =(»*L  1 

1  LI  Ml  J4 

C  1  1  ,1  )  =  C  1  1, 1  ML  11 

i  L’  Ml 

Ctl»2)=Cll»<.l'*Cl2 

i  Lt  M 1  2<i 

Cl  1,j)  =  CI l,3)+l 1j 

l  LLM 1 3  7 

Cl/,'  )  -  C  ( t  t».  )  +  L  2  ' 

1  U  M 1  j  !• 

C  1,  ,31=11.  ,  iiu,; 

1  LI  M  1  .,•/ 

Cl.  9  3  1  =C  I  -  9  .>  1  +L  4b 

1  Li  M  |  A L 

IKKCK.K.O)  It  11  lib 

t  l  r  m  1 4 1 

FX=IFX 

1  L  M 1  ‘t, 

IY-1. 

1  L  i  M  1  J 

11  (MUt.lM  .L.  .1  1  U)  Hi  i 

1  L  1  M 1 44 

[Y  =  UX 

1  UM141. 

113  C0NI1NCI 

i  L L  M-,o 

Cl  1=1  X*C  I  1, 1  ) 

L  L  t.  M  1  4  7 

C 1 2  =  F  X*L (1,2) 

1  l  Mini' 

C21 =LY *L  1 2  ,  t  ) 

1  L  t  M  1  4  9 

C2  1  =C  1 2 

1  L  1  M  1  1  ■  L 

L  F  S  X=C  L  IAIN) 

tLFM13 1 

CU  1IJ  112 

1  IIM15? 

lift 

CONI  I NUL 

ELFM133 

C(2,1)*C(1,2) 

t  Lt  M 1 34 

C(3,?)=C(2,G> 

ELEM155 

C(3,l)=C(l,3> 

t  LfcM  1  5fa 

IHMIAG(N)  .EU.U)  GO  TO  lift 

FLFM137 

MTAG(N>=MTAG<NI+2 

FLI  M138 

GO  10  118 

ELtM159 

117 

CONTI NUt 

1 LEM160 

IF< (MIDIMTYPt ) .80.01. OR. ( EOJ 1 ,M1YPU .tQ.l.) )  GO  TO  125 

ILEMlftl 

k  X  =  tO  ( 1 ,  MTYPE 1 

ILEMlftZ 

EY=1.0 

ELEM163 

GO  TO  109 

ELEM164 

123 

CONTINUE 

LLtMlt>3  C 

***********************  *************  ********************  3********* 

FLEM16ft  C 

*  CALCULATE  ISOTROPIC  ELASTIC1IY  MATRIX  * 

l Lf M167  C 

****************************************************************** 

HI Ml  Aft 

El:l*LE  (  1  1 

ELEM1A4 

U2«t£(2» 

EUN170 

1KNPLANI  .KJ.ll  GU  TO  114 

ELEM171 

Ff  i «t e i / <  i.-rr?**/» 

f  LtM17ft 

tE2*Ef 2/(1.-1121 

1 LfM173 

119 

continue 

1  LFM174 

COMM*ll l/ll.-lf2**2) 

E  LEM173 

C  ( 1 , 1  1 =COMM 

ILEM176 

CU.21“C0MM*FF2 

ELEM177 

C  <  1.31-0. 

ELFM17R 

C(2,11=CI1,2) 

tLt  Ml  79 

C  ( 2 ,2 1  =C  ( 1  •  1 1 

FLFMlllO 

C(2,3>*0. 

tLEMlei 

C ( 3 ,1 1 *0. 

1 LEM182 

C  ( 3 ,2 ) -C. 

t LEM  183 

C(3,3>=.3*CUMM*(1.-EE2I 

FLEM184 

HR 

CONTINUE 

ELI  M1B3 

00  130  J=l,tu 

1  LI  M18A 

DO  120  1=1,3 

FLLM167 

120 

ST< I , J 1 =0 . 

ILlMlbB 

00  130  1=1,10 

1 1 LM 189 

130 

S<  I  ,J)=0. 

IHEMIYU 

133 

CONTINUF 

tUMIVl 

DO  140  1=1,4 

1  Lt  Ml  92 

NPP  =  I X (N, I ) 

I.LLM193 

RR!  I ) =R (NPP) 

ILEM194 

140 

22(11=2 (NPP ) 

ELEM195 

1F<  1X(N,3)-IX(N,4> 1  143, HO, 145 

ELI  Ml 9ft 

195 

XC=(kR( ll+RR(2l+RR<  3)+RR(4) 1/4. 

tLtM197 

YC*<ZZ(ll+22<?)+2Z(j)+22(4) )/4. 

FLFM196 

Kk<  3)*XC 

l  LI  M  199 

22<5>  *YC 

EIEM200 

K«5 
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t LtM201 

ILLM203 
lLtM204 
1 LtM2C5 
H.tM20<> 
t  Lt  M2C 7 
(•  Lb  M2C.  U 
l L t  M20 V 
I  LtrM2  10 
I  LLM211 
t  LRM212 
L  LLM  2 1 3 
t  L(  M2l4 
bLIMIlS 
l  Lt  M2  16 
U1M217 
LUM216 
f  LI  M2  14 
t  LI  M22 0 
I  LI  M22  1 
c  LLM222 
‘  LP  M22  3 
l LPM224 
I'  L  l  M  2  2  4 
I  LI  M22o 
b  LPM2  2  7 
I LFM22H 
I LIM.2V 
i-LI  M230 
I  LI  M. Jl 
b  LI  M2 32 
t  L  L  M  2  3  3 
1  LI  M2  34 
t  U  MijS 
I  LT  M2  3o 
t  LL  M2  37 
!  L  t  M  2  3  fl 
I LIM2JV 
I  LI  M240 
f  LI-M241 
L  Lb  M24  2 
I  LI  M24i 
I  LI-M244 
r L I:  M243 
L  LLM2*<6 
l  LI  Mi47 
(•  LbM24b 
I  LI  M2AV 
l  LLM2' 0 


J-l 

1*4 

LM ( j  1  =4 
NJ*h 

00  10  160 

ISO  N  I  =  1 

LMI 3 1  =  S 

1=1 
J  =  < 

K  =  j 

XC=(RR(  1 ) »KK  (  2  » »R«*  (3)  1/3. 

YC=UZI  1)  +  Zi  (21+22(3)  1/3. 

Rk  (  5  1  =RM  3 1 
,'Z  (‘.1  =  22(31 
160  Hi  100  NM=1,\[ 

LM(l)=2*i-l 
LK(7)=2*J-1 
U(  1  )=ZZ(Jl-ZZ  (M 
U ( 2 )=ZZ (K  1-/2 (  1  1 
0(31  =  27(1  1-7; (J  1 
vi  n=pp  (M-k<-  ( j  i 
V(  2)  =  kR  (  1  (-!.>«  (K  1 
V(?)  =  kR( Jl-SK ( I  1 

ARt  A=(RR(  J)*U(2)+RR  (  1  1*0(  ll  +  RR  (  5  )*U(  3  1 1 . 

VUL  =  VUL  +  AH  I  A 
U'MM=.i&/ARt  A 

xni=nt 

CLM-2  ./XM 
tl'M=C0M»C.DMM 
01  1  b  0  L  =  1  t . 

I  l  =  LM( LI 

ST(1, 111=01(1, 111+U(L)»UJK 
SIU, 11  +  11  =  41 (2,1 1+ 1 l+V (L l+OLM 
ill  3, 11 1  =  01 (. , I l)+V(L)*< L M 
SI (3, 1 1+1 )=SI 13, 1 l+l)+U(L)*LLM 

DO  lbC  M= 1 ♦ J 

JJ=LM( Ml 

SI  1 1,  JJl  =  S(  11  ,JJl  +  (C(  1  .  ll*i;(L)*U(MI+l(  i,31*(V(L)*U(M)+U(L)*V(M)  1 
+  +CI3,3)»V(L)+V(M))+COMM 

S(  1  l,JJ  +  l  )  =  S<  11  ,JJ  +  1  l  +  (U(L)*(t  ll,2)*V(M)+C(l  ,3)*U(M)  )+V(L)*(C<7,-  1 
*  ♦  V  ( M 1  +  L  (  3,3  1+UIM1 1  1* CL'KM 

S( 1 1  +  1 , JJ+1 1  =  S( 11  +  1 ,JJ+I )+(C(2  ,2)*V(L)*V(M)+C(2r31*(U(L)*V( M)  + VI L) 
»  *U(H))+C(J,i)*U(L)*U(M))+CllMM 
S( JJ+1 , 1 1 )=S( 1 1 ,JJ+1) 

1HL  UNT1NUI 
1  =  J 
J=  J  +  l 

.00  C.LMlNOb 

lL(IXIN,j)-IX(Nf4)l  220,2k 0,220 

i2 0  DO  240  1  =  1,2 
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FLEH251  KK*10-t 

HFM?t>2  00  240  K  =  1,KK 

tU:M7!>3  IH  S<KK*1,KK*1  (  .tt.O.  I  M KK+1 , KK*1 I *.000001 

U.EM234  CC*$(KK*l,KI/i(KK*l,KK*ll 

HfM23i  00  230  J*1.3 

HEM256  230  ST< J,K I =S M J, K l-CC*ST ( J »KK*1 ) 

HEM257  00  240  J*lfKK 

fcLtM258  240  S(J,K>=S< J,K) -CC*M J,KK*1> 

HEM259  230  CONTINUE 

EUM2A0  RETURN 

t  LEN261  C 
ELEH202  ENO 


S  IKS 

1 

SIRS 

2 

SIRS 

3 

S  TPS 

A 

STRS 

6 

SIRS 

6 

STRS 

7 

SIRS 

b 

STRS 

9 

STRS 

10 

STRS 

11 

SIRS 

12 

SIRS 

13 

SIRS 

19 

STRS 

IS 

STRS 

16 

S  IRS 

17 

STRS 

lb 

STRS 

19 

STRS 

20 

STRS 

21 

STRS 

22 

STRS 

2  2 

STRS 

2  9 

SIRS 

2  6 

STRS 

26 

SIRS 

27 

SIRS 

2b 

SIRS 

29 

SIRS 

3  0 

S  1 R  S 

31 

STRS 

32 

;  |r: 

33 

6  IRS 

3  a 

SIRS 

35 

SIRS 

36 

SIRS 

j7 

SIRS 

3  6 

SIRS 

39 

MRS 

hO 

SIRS 

Al 

SIRS 

At 

STRS 

A3 

STRS 

A9 

SIRS 

95 

SIRS 

96 

STRS 

A7 

STRS 

98 

STRS 

99 

SIRS 

50 

SUB  ROUT  INl  SlktsSIR.Z.OUUE , UU  , CU  ,  b  1 ,  R J  ,T  ,SI0l  ,EP5l  , SIONM,6Fl  A, 

.  RA  I  1(J,PR  ,h  ,A,IX,MTAU,NTA0,  JNT  ,  i  FC,  IBC  ) 

LOHMON/ONl  /  NUMNP,NUMtL,NUMMA7 ,NUMPC,hPC  ,MB  AND ,  NUM6LK ,  NL ,  MT  YPF  ,  N  , 

.  VOL,ACELk.ACELZ,C,HFni  IE ) , ST  Op , SR , Sk 1 , TOTAL , TOL , TOL 1 ,XC, YC , 

.  lr:MP,SIGN,  SIODI,SiGDJ, 

.  lLL ,1  1  1, JJJ, JCK.KCHtCK ,JCHtCK,NPLANE,NLNFR,NCODF, JA,NEO 
.  ,N6ANO,NCRACK,NSrtP,Nl6,M7,NTOT 
COMMON/ 1  WO/  Cl  3,3  )  ,  SI  10,1  0)  ,Sl  1.(6)  ,P<  b)  ,ST<  3,10)  ,RR<  5)  ,ZZ  (  5  )  , 

.  LM( A) ,RE (3) ,tPS( 31 

COMMON/ THREE/  L (  8 , A, 0) , tfll  9 , t I ,TFNS( 8 1 , XNUI B)  ,R(J( b ) ,FPST( b ) , 

.  MTC(E),Nll.  (8),MlDlb) 

DIMENSION  k(NOMNP) .ZINUMN  > ) ,CU DF  ( NUMNP ) , UU I NUMNP , 2 ) , CU ( NFO ) , 

.6  1  (  NE(J )  ,  b  J  ( NL  0 ) ,  T  ( NUMNP  1,5101  (NUMEL,fe)»FPSI  (  NUMEL  ,6  )  ,  S I GNM  (  NOME  L )  , 
•FETA! NUMEL)  ,MAI  10  ( NUHfc'L  ) ,  PR  I NPL ,  2 )  ,1X1  NUMEL ,  i> ) ,  Ml  AC  (  NUME  L )  , 

•  NTAG(NL'MLL)  , JNT  (NUMEL)  ,  16 Cf  NPC  )  .JBCtNPC) 

DIMENSION  6(NL) ,A(NL,NfcANU) 

OU  602  M=l, NUMEL 
IU=M 

FIND! 2* ID) 

IX<M,5)=iA6S(  IX  I M  ,5  ) ) 

DO  SO  1=1,6 
5l.  S10I  I  )  =  0.l 

*********************************************+*+*********+******** 

*  READ  ELlMiM  INFORMATION  FROM  FILE  2  ♦ 

******************************************* *+**********++****+**** 
p.r  ADI  2*  ID)  (  I C  (  I  IK.JJK),  JJK  =  1,3) ,  E  E  I  I  IK  )  ,  1 1  K=  1 , 3 ) 

1  ,(  (SIJJI.KMI.KK  1  =  1,8), JJI  =  1»8)»((ST(1KK,JKK)  ,  JKK=  l,b),IKK=l,2) 

2  ,  (HRIJII  ),Z/(Jli: ,Jll  =  l,4!,XC,YC,TEMP,V0L,MrYPE,N 
II  I  1X(N,3)-1X(N,2  )  )  90,60,90 

****************************+*+*+++*++**♦++********+++****++**»*** 

*  ONF-IIMENS 1UNAL  FLtMFNT  * 

************************************************* v  -«*  +  *  +  >  ********** 

60  IFIMTAG(N).lO.A)  00  TU  70 
I  =  1  X  (  N  ,  1  ) 

J= 1X1 N,2 ) 

' )  X  —  KR  (  2  )  — l\R  1 1  ) 

I > Y  —  7Z (2 )-/Z 1 1  ) 

XL=  SDR  T I  DX**t  *  DY**2 ) 

UO  =  b(  2  *  J  - 1  )-BI2*I-l ) 

(  V=6 1  2*  J )  “B  I  ..*  I  ) 

DL  =  DV*DY/XL*nil*DX/XL 
SIC  (1)=I»L*EI  I  ll/XL 
IFItEUl.tL.D.)  S10(1)=C*. 

70  SlOl(N,A)=SlG(l) 

SIE-I(N,5)=0. 

SIGH  N, 61=0. 

00  10  too 

*************** ********************************** ***************** 
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TNU-OIMI  NSlUNAL  tLLMEN  I 


MRS  51  C 
STRS  62  C 
SIRS  S3 
SIRS  64 
SIRS  55 
STRS  56 
STRS  67 
STRS  56 
SIRS  59 
SIRS  ,  2 
MRS  >1 
SIRS  62 
STRS  63 
STRS  64 
SIRS  65 
STRS  66 
STRS  67 
STRS  68 
STRS  69 
STRS  70 
STRS  71 
STRS  72 
STRS  73 
STRS  74 
STRS  75 
STRS  76 
STRS  77 
SIRS  7b 
SIRS  79 
STRS  60 
SIRS  Ml 
SIRS  U2 
STRS  U3 
SIRS  64 
STRS  65 
STRS  8b 
SIRS  87 
STRS  8' 
STRS  69 


* 


90  HH=4 

IH 1X(N,3).F0.1X(N,4) 1  MM =3 
170  DO  180  1=1,3 
KR( 11=0. 

00  180  J *  1 »  MM 
1 1 =2* J 

J J  =2* I X I N, J ) 

180  RR (  1)=RR(1)+5T(1,11)*B(JJ)«S1(I,11-1)*&(JJ-1) 
DO  190  1=1,3 
DO  190  .1  =  1,3 

S  1 G I  I  )=31G(  M+C  <  I  ,  J)*RR  (J) 

IF(HTAG(N).t0.4)  S1G(I)=0. 

190  CONTINUE 

1 F I MTAGIN ) «NE .3  I  GO  TO  191 


n 


EPSX=BFTA( N) 

CC=COS(tPSXl 
SS=S1N( EPSX ) 

S2=SS*SS 
C2=CC*CC 
SC=SS*CC 
SC2=2 • *SC 
CSD=C2-S2 

S I GXX=C2*S 1G ( 1I*S2*SIG(2)+SC2*S1G(3) 

SI GYY=S2*S1 G( 1I*C2*S1GI2)-SC2*SIGI3) 
SIGXY=-SC*( S1GI 1) ~S I0( 2  1 1 +CSU*  S IGl 3 ) 

DX=FF ( 2 ) *S I GXX 

S1GI1)=SIG(1)-(C2=S 1GXXaS2*OX-SC2*S IGXYI 
SlGI 2 ) =S IGI 2)_( S?*S IGXX+t ?*0X+SC2*S IGXY I 
SIG(3l=SIG(3)-(St*( SIGXX-DX  MXSD*SIGXYI 

191  CtlNTlNUf 

OU  192  1=1,3 
SIG1(N,I+3)=S'GU) 

KPS1 ( N, I +2 ) =RP (1) 

192  CONTINUE 
600  CONTINUE 

RETURN 

ENO 


no 


SCI  ROOT  INl  I.MI1H  (MTAG.JNT.  RATIO,  BE  I A , S I G I , S 1GNM) 


OP  IE 

1 

ERIE 

2 

0 

LEIF 

3 

OKIE 

** 

OKIE 

3 

OF  1  E 

6 

C  R|F 

7 

CR1F 

b 

OR  IF 

V 

OK  1  F 

10 

OK  IF 

I  1 

Ok  1  F 

12 

OP  IF 

13 

OKIE 

14 

C 

OKIE 

lb 

0 

GRIP 

16 

C 

OR  1  F 

17 

C 

OP  IF 

18 

C 

OR  1 F 

19 

c 

OP  IF 

20 

c 

OR  IF 

21 

0 

GRIE 

22 

OKIE 

23 

GRIE 

24 

OR  IE 

2  b 

OKIE 

26 

(.RIF 

2  7 

GRIE 

28 

OKIE 

2v 

OKIE 

30 

GRIE 

31 

GE.IE 

32 

C.RIF 

33 

GRIE 

34 

GRIE 

3b 

OR  1  E 

36 

GRIE 

37 

OKIE 

38 

GRIE 

34 

G»1P 

40 

CR  IF 

41 

L 

GRIE 

42 

GRIE 

43 

OKIE 

44 

OR  IE 

**b 

OKIE 

46 

GE  IE 

47 

GRIE 

46 

OKIE 

44 

OP  IF 

bO 

C0MR<JN/CN>-/  NUMNP  ,  NOM  EL  .NOMMAT  ,NUMPC  *NPC  ,Mb 'NCI.  NUMoLK  ,  NL  ,  M  1  YI'I  ,  N, 

.  VUL.ACI  LK.ALI  L2,t,HEt>l  18).  STOP ,  SR ,  Sk  1 ,  TOTAL,  TUL ,  TCL 1 ,  XC  ,  Y(  , 

.  IEMR,SlCN,ilGUl,SICDJ, 

.  LLL, II  I, JJ J, JCK.KCHC IK, JLKLCK.N PLANS, NUMLR  ,NCUD£  ,  JA ,  NL  (J 

.  ,Nl  AND,NCRACk,NSTLP,Nlb,M7.NTUl 
LOMMUN/TWC  /  Lt3,3I,S<lC,lu),SIG<6),P(8l,SH3,10I,RR<A!,77<bl, 

.  LM(4),tL(3>,fPS<3> 

OLMMUN/THKtf  /  LI  f.,4,BI  ,EU(4,81,  T£  NS  t  8  I ,  XNU I  8  )  ,KD  (  d  )  ,  t  PS  T  (  8  )  , 

.  MTCIL)  ,NIC  (6  I.MIC'lb) 

OlMFNSlCN  M I  AG  I  NUMt  L )  *  JNT INUMEL  )  «R  AT  lOlN'JME  L )  ,  b  t  T  A  (  NUM  L  L  )  , 

.  SIG1 (NUMEL.E  I ,  S 1 GNM { NUME L I 

********************************************************** 

*  XNU ,  XN=  LUt  E  •  OF  FPICTION  EClk  THE  MODIFIED  GRIFFITH  CRITFR1CN  » 


*  TPNS.SIbT®  UNSILI  STRENGTH  UF  THE  MATIRIAl  * 

*  SIGN®  STRESS  COMPONENT  NORMAL  TO  THE  FRACTURE  PLANI  * 

*  f  pSX®  ANO Lf  f.l-TWEEN  P  AND  SIGN  * 

*  IITA®  ANCLt  ElTWLLN  X-AXIS  AND  SIGN  * 

*  ANGLES  ARE  POSITIVE  COUNTERCLC'LKW  I SE  * 


**************************************************************** t  t 

MT  Al.  I  =MT  Aol  N ) 

JNT1=JNTIN) 

S I  C’YY-0  • 

SI('.N=0. 

lE(MTAGIN).LI.L)  GO  TO  600 
MTAG(NI=0 
JNI  IN  1=0 
bL  I  A(  N  I  =0  • 

PP  =  S 1 G I  4 1 
0®S IClb ) 

R=!.IG(6) 

Sll.r=TLNi  (MIYPL  I 
XN=XNU(MIYPl I 
SUM=3.U*PP+0 
TPL®O.OOb*SlGl 
TlLL®TOL 

»E{  JCR.EG.O)  I ULL®  l'  • 

MD®M 1 U ( M  T  YR  L I 

1EI  (MTAGl  .1  L.2)  .AND. I  JN  T1  .LT.4II  00  TO  30 
LHtOK  INlllAL  WiA.K  PLANE 
IF(MD.tv.O)  0(1  ID  30 
WX»2.*(lLU,MTYPE  I-R/S7.246) 

W=0.b*WY 
X  =  CCIS(WX) 

P(  APO  =  PP  +  L' 

POSUb  =PP-0 

S 1 CYY  =  0 • b* I PoAOH+PUSUtf*  X I 
Sll  t®l 0(4,MTYPE  I 
XN®cO(i,MIYPt I 
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OK  IF 

51 

IFIS1GYY.LE.0.)  GO  TO  200 

GRIP 

0? 

SIGN*S1GYY 

GRIP 

53 

GO  TO  40 

GRIP 

54 

30 

C0NT1NUP 

GP1P 

55 

1PISUM.LT. 0.)  GO  TU  100 

GRIP 

56 

S1GN«PP 

GRIP 

57 

40 

G0N1 1NUE 

GRIP 

56 

DS1G=S1GN-S1GI 

GRIP 

5v 

IPIIJGK.LO.D.ANO.I  AS  SI  USIGI.LT. TOLL))  GO  TrJ  50 

GRIP 

60 

1FI0S IG.LT .TOLL )  GO  TO  600 

GRIP 

61 

G 

*** to* ******* ****** ********** ******* ********  XI** *********** ******** 

C.RIF 

62 

C 

*  PRAG TURF  PLANE  COINCIDES  WITH  S1GI5)  IF  CRITICAL  ANGLE  IS  ZERO  * 

GR1F 

63 

G 

*  APPLY  ORIGINAL  GRIFFITH  CPI  1 ER ION  * 

GRIP 

64 

C 

***************  *************************************************** 

GRIP 

65 

50 

CONTINUt 

GRIP 

66 

IF(MO.tL.O)  GO  10  70 

GRIP 

67 

1P( (MTAG1.EG.2) .AN0.IJNT1 . L  T. 4 ) )  GO  TO  70 

GRIP 

68 

MTAGI  N )  *1 

GRIP 

6  V 

JNT I N ) =4 

GRIP 

70 

8ETA(N)=EO(2,MTYPE) 

GRIP 

71 

GO  TU  320 

GRIF 

72 

70 

JNT IN  1 =1 

GRIP 

73 

S1GN=PP 

GRIP 

74 

SIGYY=S1GN 

GRIP 

75 

EPSX-0.0 

GRIP 

76 

GO  TU  300 

GRIP 

77 

100 

GUNI1NUE 

GRIP 

78 

C 

************* ***************** ****************************  ******** 

GKIF 

79 

C 

*  CRITICAL  ANGLE  IS  NOT  ZERO  * 

GRIP 

BO 

t 

*  APPLY  THE  ORIGINAL  GRIFFITH  IF  THE  INITIAL  FLAW  IS  OPEN  * 

GRIF 

81 

C 

****************************************************************** 

GRIP 

62 

PCADO=PP*« 

GRIP 

83 

PGSUb=PP-L 

GRIF 

84 

X=-0.5*PQSUt/P<jA0D 

GRIP 

85 

SI  GYY=0 .5*1 PwAOU*  PWSUB*X) 

GRIP 

86 

1P(  SIGYY.LT  .0. 1  GO  IU  200 

CHIP 

b  1 

SIGN«-PUSUB‘**//<6.*P0AD!>) 

GRIF 

68 

DSIG=S 1 GN-S IG I 

GRIP 

69 

IF!  (JCK.EGl.il  .ANO.  |  ABSIOS  IGl.LT.  TOLL)!  GO  TO  |50 

GRIP 

90 

ipiusig.lt .toll )  go  to  ouo 

GRIF 

91 

150 

CONTINUE 

GRIP 

92 

WX=  ARGOS ( X 1 

GRIP 

93 

W=0.5*WX 

GRIP 

94 

JNT (N 1 =2 

GRIF 

95 

Z*G/PP 

GRIF 

96 

Sl=  SIN(W) 

GRIF 

47 

S2-S1**2 

GRIF 

98 

SS=  SINIWXI 

GRIP 

99 

111=1*1-1.0 

GP IP  100 

2  =  2-1. 0 

112 


Lk  If  11  1 
GRIF102 
C.RIF103 
OKIF104 
CKIF106 
(  l, IF  lot 
uF  IFIC7 
IklFlGl. 
oRIF10« 
C«IF  l  10 
LK1F111 
GRIF112 
OF  IF  111) 
i-R  1 F 1 14 
OR IF116 
OR  1 F 1 16 
OR1F1 17 
OF  I F 1 1 6 
GF1F11V 
OK  IF  120 
GR1F121 
OR  1 F 1 22 
ORIF123 
OR  1 F 1 2  4 
OR  I F 126 
GK1F126 
OR  IF  127 
(  K1F12R 
(.R1F12R 
OR  1 F 1 30 
OR  I F  I  3 1 
OR  1 F 132 
OR  I F 1 33 
GKIF134 
(.RIF  I  36 
OK  1 F 1 36 
OR  IF  137 
oR I F 1 3  B 
ORIFIjV 
OF,  IF  140 
OR  IF  141 
OR  I F 142 
( RIF  143 
oRIF 144 
OK  I F 146 
(.I'll  146 
(.RIF  I  *4  7 
OF  IF  140 
OR  I F 1 44 
OK  I F 1 60 


ARo-=(7*S2  +  1  .u-  OCR!  (Z27*S2*1.01  )  /(0.6  >Z*SS) 
t  R  SX  =  AIANIAR01-W 

r.O  TO  300 
2C0  CONTINUF 

*********,***♦*»**********♦**************************************» 

*  APR LY  THl  ML01F1FD  GRIFFITH  IF  THt  INITIAL  FLAW  IS  CLOSED  < 


IFIMO.F&.O)  00  TU  240 
OHfcOK  SHCAK  STRtN&TH 

SICN=0. 6*<P&SUd*ScRT<  l.+XN**2)  ♦PwADD*XN) 

OS  1 0=  S  lo>N“S  lb  T 

1  F(  ( JCK.F  0. 1 )  .AND.  (  ABSftiSIG)  .LT.TULL  )  )  GO  TCI  220 
lP(OSlG.Ll.TOLL)  GO  TO  700 
22U  S IGM= .6*P0A0D 
TAU=.6*PuSUB 
IF (TAO.f 0.0. )  00  1U  600 
WX  =  AT  AN ( XN ) 

X=(  (S1(.M*S1GT/XN)/TAUI*SINCWX) 

I F ( X . 0  I  .  1  .  )  X-l. 

AX=ARSIN(X) 

(U  =  -.5*(AX  +  WX) 

B2=.6*(3.141 6+ AX-WX ) 

BW=.6*ATAN2(l.tXN) 

CHICK  F.CUNOS  OF  ANOLt 

IF(  (bW.Ct  .bll  .AND.  (EW.LI  .  B2  )I  00  TL’  230 
GO  TO  600 
<30  XN=XNU<HTYPf  ) 

S1GM=.2‘.  *(PCSUF*SLRT(  1 . +XN**2 ) ♦POAUD*XN ) 

IF( SION. OF. SI  OH)  00  TO  240 
JNTINl-6 
00  TO  270 
240  CONTINUF 
X*1.0/XN 
WX=  ATAN(X) 

S I OYY  =0 • 6  * ( PR  A 00* PC  SUB*  COS(WX)  ) 

IF(SlOYY.Ct.C.l)  OU  TO  fcCO 
W-0.5*WX 

SI  l.N=0 .26*  f  PC  SUB*  SORT  (  1 . +XN** 2 ) ♦POADD*XN ) 

I'S  IO=S  ICN-S  IOT 

IF( (JCK.FO.l) . A NO. f Ah S(  OSIOI.LT. TOLL))  00  TO  260 
IFILSU  .LT.IOLL)  00  TO  600 
260  CONTINOF 
JNT(N)=3 
</0  UINTINOl 

E  P  SX^C  • 7b  64-W 
300  CONTINUF 
H  I A  0  ( N  )  =  1 

EFTAIN)=K/67.2VO-lPSX 
AN(.  =  67.2Vt,*l.t  I  A  ( N ) 

IF(ANO.OT.VO.O)  b  t  TA  ( N I  =i  1  TA(M-3.1416 
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GRIF151 

GR1F152 

GRIFI53 

CK  iF  I  •)<, 

GRIF155 

GR IF  156 

GR1F157 

GRIF15B 

GRIF159 

GRIF160 

GR IF  16 1 

GRIF162 

GRIF163 

GR IF  164 

GP1F165 

GR 1 F 166 

GR 1 F 167 

GR1F168 

GR IF  16V 

GR1F17G 

GR1F171 

GRIF172 

GRIF173 

GRIF174 

GR IF  176 

GR1F176 

GR1F177 

GR1F17B 

GR1F17V 

GR IF 18G 

GRIFlfcl 

GR 1 F 182 

GRIF183 

0KIF184 

GR 1 F 18  5 

GP1F1U6 

OKI F 16  7 

GR I F 1 88 

GRIH8V 

GR I F 190 

GR  IF  IV  I 

GPIF1V2 

GR 1 F 193 

0RIF194 

GRIF19S 

OR  IF  196 

GR1F1V7 

OR  I M  98 

GR I  FI 99 

GR IF  700 


1FI ANG.LT .-90. (  BE  TAIN) SUSTAIN) +3.1416 
320  CONTI NUF 

IF (KCH1 CK.EL.O)  GO  TO  600 

.  *  EVALUATE  STRESS  RATIO  FOR  EACH  ELEMENT  ! 

ir^T!!***’***************************************************** 

A0  =  SIGI  ( N » 1  (+SIGI  IN  ,2  ) 

B0*SlGl(N»l)-SlOl(N*2) 

A1=S1G( 1 I+SIGI2 ) 
blESIG(l)— SIGI2) 

00=80**2+4. 0*S1G1 (N,3)**2 
C1=BO*B1+4.0*SIGI (N,3)*SIG(3> 

C2=H1**2+4.0*SIG( 3) **2 
1 JNT=JNT IN) +1 

GO  TO  (600,35u,400,500,340f 500) , 1 JNT 
340  C4=X**4 
C1=C1*C4 
C2=C2*C4 

350  S1GT2=2.*S1G1 
OS 1GT*S IG I 2-AO 
AAA=A1**2-C? 

BB=— A1*DSIGT— Cl 
CC=OS IGT**2— CO 
GO  TO  590 
400  CONTINUE. 

AAA*C2 

BB=C1+4.0*S1GT*A1 
CC=U.0*S1GT*AU+L0 
GO  TO  550 
500  CONTINUE 
XN2=XN**2 
RXN2=1.0+XN2 
AAA*RXN2*C2-XN1  *A  1**2 
IF  I  JNT  IN)  .EG. 3)  GO  TO  520 
BB=RXN2*CI-XN2*A1*A0+2.0*S ICI*A1*XN 
CC=RXN2*C0-XN2*AC*A0+4.G*SIGT*A0*XN-  4.0*SU  T**2 
GO  TO  330 

320  B8cRXN2*CI“XN<.*A1*A0*4#0*  MGT*A  1*XN 

CC=RXN?*CC-XN^*A0*A0+8.0*SIGT*A0*XN-16.0*S10T**2 
550  CONTINUE 

OO  +  BB  **2-AAA*CC 
1F( OO.GF.O.O)  GO  TO  560 
GU  TO  600 
560  RUUT=  SUR T ( DO ) 

R1=(-BB+R00T)/AAA 

rj*i-bb-rooti/aaa 

R  A  T  IC  (  N  )  =R  I 

IFj (RATIO(N).LT.IOLI  t .ano.irj.gf.toli  ))  RAflOIN)*PJ 
IFIlRATlUINl.GT.l.).  AN!),  I  KJ.LT.I.M  RAT1U(N)=RJ 
IF!  ABSU.-RAI  l(IIN)  ).LE  ,  Tl'Ll  )  RAIIQ(N)=1.0 
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OKlfiOl  JHRA1M  INl.Ll.lULII  KA1IUIN|  =  T0U 

CKIK’O;  If  IRATIl  INl.Gl.l.l  kAl  III  (N I  r  1  • 

l,P|f20j  MHi  C.GN1INU1 
tt'If2tk  jll  NMIN  N 

ORIf205  IMMTAf.lNJ  .Nl  .M1AGI  )  JCHFC.KK 

OK  I f  206  lKH1Atl.tw.il  MI  AG  I N ) *  2 

OKIH207  IKMTAC.1NI.Nt  .1}  KATIOINIK.C 

Gkl f  20  b  kflUKN 

Of  If  209  t 
GRIF210  f NO 


i 


SUBROUTINE  SCALH  IX  ,MTAG,NTAG ,  JNT, R AT  10, BE T A  ,S1G 1 , S1CNM, EPS l ,CU, 
.  B,A( 


COMMUN/UNl  /  NUMNP .NUMEL  .NUMMAT  ,NUMPC,NPC  ,MbANn,NUMBLK,NL ,MTYPE  ,N, 

.  VOL,ACELk,ACELZ,0,HED<  18  ) ,  SI  OP,  SR  ,  SR  1 ,  TOTAL ,  TOL  ,  TOL I ,  XC  ,  Y(  , 

.  TEMP, SIGN, SIGUI.SIGOJ, 

.  LL L.lll, JJ J« JCK.KCHECK.JC HECK, N PLANE,  NUM(  R  ,NCODE  , JA.NEG 

.  ,NBAND,NCRACK,NSUP,N15,M7,NT0T 

CUMMON/TWO/  C<3,3(,S(10,10),SIGI6>,P(8).ST(3,10),RR<5),7Z<5), 

.  LM(4(,HE<3(,EPS<3) 

COMMUkI/THREE/  t(8,4,8)  ,  EO ( 4 , 8 ) , TENS  I  8)  , XNUI8)  ,R()(8  )  ,EPSTJ  8) , 

.  M7C(6),NTC(B),MID(8) 

DIMENSION  IX( NUMEL, 5) «MTAG( NUMEL ) ,NTAG( NUME L )  , JNT (NUME Li .RATIO! NUM 
.EL ) .BETA (NUMEL) ,S IG I ( NUMEL ,6 ) , S 1GNM ( NUMEL ) , E PS  I ( NUMEL ,6 ) , CUI  NEC ) 
DIMENSION  BIND  ,A(NL,N8AND) 

DIMENSION  UX< 8) ,UY(8> ,F<4) 

KIK-Ci 

JCKM 

1CHK-1 

ICHECK*0 

IE ( lll.GT.O)  GO  TO  350 

JCK-0 

KCHECK=1 

KKK-0 

SKR*1 . 

SR  1 -1 .0 

WR1TEI6, 20051  LLL 
GO  TO  600 
100  CONTINUE 
NK  T=0 
KKK=KKK+1 
SR-1.0 

DO  200  Mel, NUMEL 

200  1F(RAT10(M).LI.SR)  SK*RATIO(M> 

SR3-SR 

TOLL-0. 

DO  210  M« 1 , NUMt L 
IF(MTAG(M).NE.l)  GO  TO  210 
MTYPE  =  I X ( M, 5 ) 

TOL J-G .005 

TOLK=AHS(RAIUKM)-SR) 

IF( TULK.GI.TULJ)  GO  TU  210 
I F  (  TULK.GT.TOIL)  ID  L  L  =  T  OL  K 
210  CONTINUE 

I F ( SR3.LT. 1.)  SR3=  SR  +  TOLL 
IF( SR3.GT.1.)  SK3=1.0 
DO  220  M=l, NUMEL 

220  I F I  A8S(RATICWM)-SK ).LE .TLLJ  )  RATI0(M)=SR3 
SR=SR3 

IF  (  SR3.NE  .  1  .0)  GO  TO  240 


SCAL  41  KCHICK=U 

'.CAL  52  SR=-SR*Skl 

'.CAL  63  (.0  TU  *.'50 

UAL  LA  t 

SLAL  66  C  INUKRLLAIt  l.R  f  XTKAPULA1  l  SCALING  FACTOR 

SLAL  46  C 

SCAL  5/  ,.40  CALL  INTFR  ( IX, MT AG , JNT , R A T1 0 1 FIT A , . 1 0  1 , S IGNM , t P S 1 , CU . 8 . A ) 

SCAL  68  250  SRUSR 

SCAL  5 V  DU  280  HM.NUFCL 

SCAL  60  IFIMTAG(M).GT.l)  UJ  TU  26 C 

SCAL  61  IKMTAGCMJ.K.l)  NK  T*NKT*  1 

SCAL  62  IF (RATIUTH) .F0.SK3)  GO  TO  2tO 

SCAL  63  iF(MTAGIM).LL.l)  NKT=NKT-1 

SCAL  64  RATIOIMIM.O 

SCAL  65  BklA(M)=0. 

SCAL  66  JNT (M )=0 

SCAL  67  MTAG(M)=0 

SCAL  6b  280  CtlNTlNUf 

SCAL  ov  IFCKCHFCK.NL.L  )  GC  TO  3m6 

SCAL  70  KKK=KKK-1 

SCAL  71  SR=SK*( l.-TUI AL) 

SCAL  72  K1K=C 

SCAL  73  1F(  (KKK.tO.C).ANC.(SR.f(J.l.n  KlK=l 

SCAL  74  FRlTL(6t2006) 

SCAL  76  WR ITF ( 6 «  c  002 )  LLL.SRtKKK 

SCAL  76  (,0  TU  350 

SCAL  77  345  WK 1 TM  6 f  200 3 )  LLL.KKK.SF 

SCAL  78  IF  I  SR  .l.L  .0.0001 )  GO  TO  360 

SCAL  74  MR  1 Tl ( 6 1 2004 )  SR 

SCAL  bO  SP>=0. 

SCAL  1.1  Rfc  TURN 

SCAL  82  36u  SKR=SK1 

SCAL  b 3  IF(III.GT.O)  SKRM.O 

SCAL  84  GO  TU  600 

SCAL  85  362  IF I C I CHK. t U .0 ) . AND. ( KCHICK .EO . 1 ) )  GO  TC  ICO 

SCAL  86  C  ****************************************************************** 

SCAL  87  C  *  SCALfc  OOWN  0 1 SPL ACiMENT S  * 

SCAL  bb  C  ***»*********«***********************************************»*<« » 

SCAL  04  IF( ( I  I  I  .Fw.O) .ANO. ( KCHfcCK . fcO .0 > )  GO  TU  357 

SCAL  VO  GO  TO  356 

SCAL  VI  357  TOTAL  MOT  AL+Sk 

SCAL  V2  )F(  (TUTAL.GF..WV)  .OR.I  SR.tO.O.O) )  TOTALM.O 

SLAL  V3  jSb  CUNMNUf 

SCAL  44  IF ( ( 1 1 1 .GT.O) .AND* (1 CHECK. fcO.O))  GU  TU  550 

SCAL  45  IF  (KIK.10.1  )  V.U  TO  354 

SLAL  46  MR  I  Tfc  (  6  *2  LOT  I 

UAL  *<7  WRlTfcU.2001) 

„LAL  4b  35V  OL  500  KM.NUMNP 
'LAL  49  N1=;*M-1 

SCAL ICO  N2=N1+1 


117 


SGAL1G1  bX=SRR*B(NI) 

5LAL102  BY=SRR*B(N2) 

SCAL103  IEllCHECK.EL.il  GL  TO  360 

SCAL1G4  BX  T =6X  +  CU (N 1 1 

SCALI05  BYT  =D Y+CU 1  N2  I 

SCAL106  GU  TU  370 

SCAL107  360  CU1N1 )=CU(N1)*EX 

SC AL 108  CU1N2 )=CU(Ni)+BY 

SCAL109  BX  T*C  U 1 N1 1 

SCAL1I0  BYT=CU(N2) 

SCAL11 1  370  IFIKlK.EU.il  GO  TO  500 

SCALI12  WR 1 TF ( 6 , 1000 )  M  ,BX , BY , BXT , B Y I 

SCAL113  600  CONTINUE 

SCAL114  KIK=0 

SO AL 1 15  650  CONTINUE 

SCALU6  ICHK-0 

SCAL117  IFII11.NL. 0)  GO  10  WO 

SCA11IB  IEIKCHECK.EQ.U)  Gl  TO  900 

SCAL119  GU  TO  100 

SEAL  120  C  *************** ********«*******i *******************  *************** 

SCAL121  C  *  SCALE  OUWN  SIPESSES  * 

SCAL122  C  ****************************************************************** 

SCAL123  600  CONTINUE 

SCAL124  5M*0. 

SCALI26  JCHFCK=0 

SCAL126  KCK=0 

SCAL127  1FIIKKK.G1. OI.ANO.lKCHECK.EO.il)  KCK  =  1 

SCAL128  IF!  <K1K.EQ.1).GR. (KCK.ECl.il)  GU  TO  605 

St AL 129  WR1TE16.2001) 

SCAL130  605  CONTINUE 

SCAL131  DO  BOO  M=1,NUMEL 

SEAL  132  1  D«=N 

SEAL  133  C  ****** ****•*••***•*•*•••***•****•****•••***•*•***•••»•****• ******* 

SCAL134  C  ♦  READ  ELEMlNI  INFORMATION  FROM  FILE  2  * 

SEAL135  C  *** *****♦**♦*♦♦ ************ ************************* ************** 

SEAL  1 36  READ! 2 • ID  I  1 1 E 1 1  IK , J JK > , JJK=1 , 3 1 , EE  1  I  IK  I , 1  IK  =  1 , 3 1 

SEAL  137  1  , 1 (SI JJI ,KKI) ,KKI  =  I,B) , JJl=l,b> , | I  ST  1  IKK  * JKK  >,JKK=1,B) , IKK=1,3) 

SEAL I3B  2  ,(RR(JII),ZZ(Jll),JIl=l,4),XC,YC,TEMP,VnL,HTYPE,N 

SCAL139  DU  69 0  1=1,3 

SCAL140  640  S1G 1 1  I =SRR* SlGl (M , 1 *3 1 *S1 Gl 1 N, 1 1 

seal  141  ifi ixim, ji .ne . ixim,2) i  go  tu  gso 

SCALI42  OX*RR 1 2 l-RR 1 1 1 

SEAL  1 43  DY  =  Z7 121—72(11 

SEAL144  SlGl o I =90 . 

SEAL  1 46  1F1DX.NE.0.)  S IG 1 6 ) =57 . 296* A  I AN2 1 DY, DX I 

SCALI46  S 1G (4 )  =  S1 Gl 1 1 

SEAL  147  S IG 1 5  I =0. 

SEAL 14B  GO  TU  765 

SEAL  149  650  CC=IS1G(1)*S1G 1^11/2.0 

SEAL150  BB  =  I S 1 G I  1 1 -SIGl 2 1 1/2.0 


UB 


GCAL101  CK  =  SWK  I  (  rtb**.''*SlG<  l\**t  t 

1>L  AL  I  r.i-  SIGI4 )=CC+CR 

GCALlOj  SIG<5)=CC-Ck 

GCAL  1 04  Ml. (A  I  =0.0 

GCAL166  IH  tbB.FO.O.)  .AND.li.10t  3)  .f  0.0.)  I  GO  TO  660 

SCAL166  S )  (>  (6  *  r  2b  .6111 »  A I  AN3 1  SI  L.  1  2 1  ,8B  1 

GCAL167  66C  MTYPF = 1 X 1 M, 0 1 

GCAL16S  IFIMTLIMIYPL 1 .tG.OI  GO  10  7e>6 

SCAL109  IFtlII.Fl.Ct  GL  1C  745 

OCALIGO  lFtlMIAOIM).iC.3).'ND.(SU-(4).GT.  Tt NS  1 MTYP c 1 1 1  MTAC,(MI  =  t 

GCAL  1 6 1  IF  (  MTAG(M)  .f  l.  .3)  JCHtCMl 

GL.AL16?  IFIMTAGIMI.I.I.J)  1,0  TO  7b6 

CLAL163  CALL  GK IF IH  i  MT  AG  ,  JNT  ,R  AT  III,  BF  TA  ,  S IGI  ,  SIGNM) 

SLAL164  (.0  TO  /6‘ 

GLAL165  Ijb  CONTINUF 

SLAL166  lFIKCHLCK.LO.il  GO  TO  767 

GCAL  167  IFHMTAGlM)  .H.*.3)  .ANO.l  Ml  141.GT.  I ENS 1 M 1 YPF 1 1 1  MTAG(MI=2 

GLAL16W  1F(  (MTAG(M)  .LG.  11.0k.  1M1AGIMI.  EG.?)  1  JCHECK=1 

GCAL169  IF (MTAG1M) .CT.? 1  GO  10  766 

GLAL170  7 67  GALL  CklFTH  1 MTAG , JNT, R AT 10» bt T A , S 1G 1  * S IGNM) 

GCAL171  760  SN=0. 

GCAL  1 72  IFlKCHFCK.LG.il  GO  TL  770 

SCA1173  IF! (MTAG(M) .1 w.0).0R.(MTAG<M).GT.2)l  GO  TO  77C 

GCAL  1 74  SN=S1 GNM (Ml /ILNS1MTYP61 

GCAL  1 7 6  1MS1gNM1M1.GT.GM)  GM=SU.NMIM» 

GLAL176  770  IMKCK.tO.ll  gG  TO  600 

S CAL  1  77  1F(  (SN.Gt  .1 . 1  .(JF.(RATIOIM)  .GT.  1.)  1  RAT1DIM)=1. 

SLALl/u  1FIK1K.FC.1I  Gl  10  LOG 

SCAU79  ANG=57.?9g*gFTA1M) 

GtALlHO  WR1 Tt 16,1001)  M  ,XL  ,  YC  ,  1  Gl  G 1  1  1  , 1  =  1 , 6 1 ,MT AG  1 M  1  , JNT 1 M I , ANG „R AT  1 0  1  M ) 

SLAL lb  1  *  f  GN 

GLAL1F2  bCO  L0NT1NUF 

SLALlbJ  1F1111.NL. 0)  .0  Til  {'30 

GCAL  1 04  IFIKCHtCK.Nl.U  GO  TO  816 

SI  AH  B  6  1MJJJ.NL. 01  Ul  TO  Bit 

GCAL1H6  C 

iLAL 167  C  ****************************************************************** 

M  A  L 1 6  6  L  *  (HtCK  LRAIK  LLlSUKt  WHt  M  I  1 1 =  0, KCHt CK  =  0  L  JJJ  =  0  .  » 

GCAL  11*)  G  *♦*»***♦♦♦***** ************************************************ 

glalivo  l 

SLAL  IV 1  MR  1 TF 1 6  * 201  7) 

GLAL19?  OH  637  N  =  1 1 NIJMt L 

S l. A L  1 4 2  IF1MTAI.IM.L1.31  GO  TO  1,37 

SCAL1V4  IF<IX(N,?).i9.1X<N,J)l  GO  TO  B27 

glalivo  in«N 

SLAL1V6  MM -4 

GOAL  1 9  7  1F1  lX(N,l).FC,.lXINt4)l  MM  =  3 

GCAL196  F I NDl  2  ’  1 0 1 

GCAL  1 99  K1 A0  =  G 

SLAL2C0  OL  8u?  1=1, MM 
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SCAL201  UX  ( 1 ) =0. 

SCAL202  DO 2  UY (  l)=0. 

SCAL203  R  t  A Cj (  2*  ID  I  ( (C  ( I  IK , JJK  )  ,  JJK=  1 ,3 )  , EE  ( I  IK  )  , 1  lK  =  i  ,3) 

SCAL204  1  ,((S(JJI,KK1),KKI=I,8),JJ1=1,H),((SI(  IKK.JKK)  ,  JKK  =  I  ,8  J  ,  IKK®  l ,  3 ) 

SCAL20S  2  , (RR( Jl 1) ,ZZ( J 1 1 ) ,JI1=1,4) ,XC ,YC , TEMP, VOL, MIYPE»N 

SCAL206  1CK=0 

SCAL207  FPT=PPST(MTYPM 

SCAL208  C 

SCAL209  C  DECUMPOSE  JOIN!  OPtMNG  INTO  X  AND  Y  COMPONENTS 

SCAL210  C. 

SCAL211  FPSX=1.570H*bETA(N) 

SCAL212  1F<EPSX.GC.1.‘j70£>)  EPSX=l.Sb 

SCAL213  804  SLOPF=IAN(EPSX) 

SCAL214  DU  80b  1=1, MM 

SCAL215  80b  F( I )=SLOPE*(RP (I)— XC)  —  < ZZ  I 1 )-YC) 

SCALZlb  EPSX=3E  TAIN) 

SCAL2I7  IFIBETA(N) .LT.O.)  EPSX=3. 1416+EPSX 

SCAL218  IF(KTAG.EO.l)  EPSX=EPSX-1 .5708 

SCAL219  DUX=FPT*Cf)S(FPSX) 

SCAL220  DUY=FPT*S1N(FP$X) 

SCAL221  DC  HOb  1=1, MM 

SCAL222  IF(F(  D.LT.O.)  00  TO  80H 

SCAL223  UX ( 1 ) =UX ( 1 ) +DUX 

SCAL224  UY(I)=UY( I)*DUY 

SCAL223  808  CONTINUE 

SCAL228  IFlKTAO.EO.l)  00  TO  810 

SCAL227  IF(STAG(N).L0.3)  GO  TO  812 

SCAL228  KTAG=I 

SCAL229  EP  SX'=6  E  T  A ( N ) 

SCAL230  GO  TO  804 

SCA1231  810  EPSX=E  P SX ♦1,1708 

SCAL232  812  CONTINUE 
SCAL233  C 

SCAL234  C  EVALUATE  EQUIVALENT  STRAINS 

SCAL235  C 

SCAL236  DU  bib  1=1,3 

SCAL237  RR( 11=0.0 

SCAL238  00  81b  J=I,MM 

i( AL23V  K=2*J 

SLAL240  81b  RR( 1)=RR( 1 )+SI ( I,K)*UY( D+STl I ,K-I )*UX1 I ) 

SCAL24I  817  CONTINUE 
S>.AL242  C1=C0S<  IPSX  ) 

SCAL243  SI =S1 N( EPSX ) 

SCAL244  SC=C1*S1 

SCAL24S  C1=C1*C1 

SCAL246  S1=S1*S1 

SCAL247  IF(ICK.EC.l)  GO  TO  bib 

SCAL248  DP=SC*RP(3) 

SCAL249  EPT1=ABS(C1*RR( 1 ) +S 1*RR ( 2 ) +DP ) 

SCAL250  EPT2=ABS(S1*RR( 1)+C1*RR 121-OP) 


iCAL<  b  1  IFIbFTAlM.Ci  .0.)  GU  TU  Bib 

GtALibc  L  F  oX=IM  TAIN) 

SCAL253  1CK  =  1 

SCAU3A  GL  fC  b  17 

SLAL?bb  C 

SLAL2S6  C  LVALUATt  tUMtNI  FA  INC  1  FA  L  STRAINS,  LHFCK.  CLUSURF  PGSSlblLlIY 

SCA12S7  C 

SCAL266  1:  IB  t  F  S  U)  =  SRR*  tPS  1  IN,  A ) +  FP  SI  I N.  11 
SU12!>V  FPS(2)=SKk*l  PSl(N*b)+EPSl(N,2) 

SLALibO  FPS(3)-SPF*t PSl |N,6)»tPSl <N,3) 

SLAU761  GP=SL*EPS(j) 

SCAL262  I PSl=tl*fcPS( 1 »  +  Sl*tPS(2l  +  rP 

SCAL21.J  tPS2=Sl*LPS(l  l+Gl *tPS (21-DP 

SCAL2EA  C1-FPT1+FPS1 

SCAL2f.b  Sl  =  fcPT2+IPSA 

SCALibb  1MU.M.D.I  GO  TO  82  a 

SCAL267  IMS1.GT.O.)  GO  TO  823 

SCAL2tt  MTaG(N)=G 

SCAL269  C.G  TO  bit. 

SLAL270  ti 2 3  MTAGIN)=MTag(N)-3 

SC.AL2/1  tMHTAO(N)  .FC'.O)  GO  !(  bit 

St  AL  2  72  1. 1  I  Al  N )  *b  I  1A(N)*1.S70B 

SC  AL27  J  IFIbF  <A|N).G1  .l.b/OB)  Htl  A  ( N  J  =Bt  T  A  ( N )  -3 . 1 A 1  b 

SC AL2/A  Gt  TO  bit. 

SGAL27S  F2a  IF  TS1  .(  I  .G.  )  GO  TO  bi? 

SCALiVt.  |F(MTAG(N).K .3)  GO  TU  ti/ 

SCAL277  MT  AC>(  N )  =  1 

SGAL271I  bib  JC HECK=  1 
SGAL27V  NTAG(N)=1 

SIAL260  ANG=b7 . 29b*  fct  TA(N) 

SGAL^tl  tok  1  TE  1 1 , 2  G  i  b  ) 

StAL2b2  WR  lTfc|f.*2G2c>  N ,HT AG( N )  , ANG , EPT ,  l  P  T 1 , EP T2 ,f  PS  1 , f. PS2  ,C1  ,S  1 

SCAL2B3  027  CONTINUE 

F  t  A  L  2  P  A  t‘2b  1FI  IGF  Al. .  0.  1  .  )  1CHECK  =  1 

SCALiUb  1F( (KGHtok.tC .0 J.AND. (NKT .LE.O) )  lCHtCk-1 

SCALiPb  GO  TO  PAG 

GCAL2C7  C 

CtALiSb  C  CLAPCH  FLA  MAX .  SIGNM 

CXAL2U9  C 

SGAL2Y0  bio  0(1  b3t  N=l,NUNfcL 

SCAL2S1  |F(  Ml  AGIN) .Gl .2)  GO  TU  633 

SI. ALT  72  DN  =  AP.  SISlGNMINJ— SN) 

LLAL^j  IF  IDN.LF.  TOO  GO  (0  b3b 

SCAL2VA  1MMTAGIN)  .NL  .2  )  GU  TO  13a 

3GAL2*Ab  Ml  AGIN  1*3 

U.AL2VG  ltA=l.b70b 

CIALaVV  IF  lilt  UIN  1  .Gl  .G.  1  DA=-[iA 

St  AL  2  7b  FI.  T  A<  N )  =6 1  T  Al  N )  +IIA 

ilAL2‘<si  GO  10  13S 

SEAL JGG  bJA  MTAG(N)=0 
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SCAL3C1 
3CALJ02 
SCAL303 
SCAL  JO', 
SCALJOb 
SCAL306 
SCAL307 
SCAL30B 
SCAL309 
SCAL310 
SCAL31 1 
SCAL312 
SCAL313 
SCAL31A 
SCAL315 
SCAL316 
SCAL317 
SCAL31 b 
SCAL319 
SCAL320 
SCAL321 
SCAL322 
SCAL323 
SCAL32A 
SCAL325 
SCAL326 
SCAL327 
SCAL326 
SCAU329 
SCAL330 
SCAL331 
SCAL 332 
SCAL333 
SCAL33A 
SCAL33S 
SCAL336 
SCAL337 


JNI ( N  » =  0 
HPTA(N)=0. 

R  A 1  I0!N)=1  . 
b  Jb  1C  HECK  =  1 

t  AO  HM  JCHECK.tC.il  ICHECK*! 

If-!  lCHt  CK  .  L  i»  .  I  1  Ofi  TO  BbG 
CO  <U  352 

U50  DO  b60  M« 1 ,NUMF  L 
I'O  R6u  1  =  1,3 

S1GKM,  1  )=SRR*S1G1  (M,  I+J1+S1GI  tM,  1  t 
FPSMM,  n=SRR*FPSl(M,  I+Jl+FPSI  (M,  1 ) 

660  CONTINUE 
GO  TO  352 
900  CONTINUE 

WR1TF(6,2010I  TOTAL 
RETURN 

1000  FORMAT! U2.4E20.7) 

1001  FORMAT! 17.2FR ,2 , 1P5 E12 .‘t,  0P1F 7 .2 ,2 15,F7.2  ,  IX ,  P7  .4,F 7.2 ) 

2000  FORMAT! 12H0N.P. NUMBER  ,17X,3HDUX,17X, 3HDUY , 1 BX , 2HUX  « 1 8X , 2HUY ) 

2001  FORMAT  (7H0EL.NU.  7X  IHX  7X  1HY  AX  8HX-STRESS  AX  8HY-STRESS  3X 
1  9HXY— S  TR  E  SS , 2X , 1 OHMAX-STR  E  SS , 2X , 1 CHM I N-S IRFSS.7H  ANGLE 
2,1X,AMMTA0,2X,2HJNT,3X, AHbE  T  A,2X,5HRATIO,2X,5HSI GNM) 

2002  FORMAT!/  •  LIAO  INCREMENT  NO.'.Ib,/  '  LOAO  APPLIED  AS  A  FRACTION  0 
*F  TOTAL  LOAO  =*,F9.b,/*  NUMBER  OF  BETA  STABILITY  1  TER  A T IONS*- ' , 1 5 / 1 

2003  FURMAT I 1H0, *  LOAO  INCREMENT  Nn.*,I5,«  STABILITY  ITERATION  NO.*, 

*  13,*  SCALING  FACTOR  =*,G10.A| 

200A  FORMAT!//*  SR  =  *,G10.A,*  CALL  EXIT*  > 

2005  FORMA  T ! iHl, '  INITIAL  STATE  FOR  LOAD  I  NCR  LMEN I ' , I  5  ) 

2006  FORMA  T ( 1H 1 ) 

2007  FORMAT!//  •  CHECK  CRACK  OPENING  STRAINS  •) 

2010  FORMA  I ( 1H0, •  LOAD  ACCUMULATED  AS  A  FRACTION  OF  THE  TOTAL  IS*, Gib. b 
*//) 

*■015  FURMA  I  (  1H0,  '  N  T  AG  •  ,fiX ,  •  BETA  •  ,flX,  •  EPT  • ,  EX  ,  •  FPT1  • ,  (IX ,  •  f  P T2  • , 8X , 

A '  P  S 1  •  ,8X, *FPS2', /X. •nFPSl*,7X.'DFPS2' ) 

2C20  F0RMAT(13,lb,F12.2»bL12.A) 

2025  FORMAT! lb ,2F1 0.A, 3E 12 .5  I 
END 


SMtiMMrai 


- inri-ti-nnairiirniriinimi-wii  m  riiinii 


IMS  i 
INTR  2  C 
INTR  3 
INTR  4 
1NTK  5 
INTR  6 
INTR  7 
1NTR  6 
INTR  V 
1 NTR  10 
11VTR  11 
IMK  12 
INTR  13 
INTR  14 
INTR  IS 
INTR  10 
INTR  17 
1MR  18 
)NTR  14 
INTR  20 
INTR  21 
1N)R  22 
INTR  23 
INTR  24 
INTR  2‘> 
INTR  it. 
INTR  27 
INIK  28 
INTR  29 
INTR  JO 
INTR  ol 
INTR  32 
INIK  23 
I  N  I K  ?<, 
INTR  32 
INIK  30 
INIK  )  1 
INTR  j8 
INTR  39 
INTR  40 
INTR  <,1 
INTR  42 
INTR  43 
INTR  44 
INTR  45 
INTR  RO 
INIft  <,7 
1NIR  48 
INTR  49 
INTR  80 


EUBRUUT  INt  IMtR  (  I X  ,MT  At ,  JNT  ,  RAT  10 ,  BE.  I  A ,  S 1  (.1  ,  S  I  GNM  ) 

COHMON/tlNr/  NUMNP  ,NUHf  L  »NUMHAT  ,NUMPC  ,NPC  ,MBAND,NUMBLK,NL  ,MTYPI 
.  VU.,ACELR,ACELZ,Q,HED( 18 ) , STOP , SR , SR  1 ,  TOT AL , YUL , T OL I , XC , YC , 

•  TEMP, SIGN,  r  INCH  , SIbOj, 

.  LLL.II  I  ,  JJJ, JCK,KCriHCK,JCHFCK,NPLANf  ,NUMFR,NCODt ,JA,NEO 
.  ,NbANO,NCi<ACKf  NS TE P , N1 3,M7, NTOT 

COMMON/ TWO/  CI3,3)»S11G,10),SIG16),P(8),ST(3,10),RR(8),ZZ(5), 

•  LM(  *♦)  ,LE  (3)  ,EPS(3) 

CUMMON/THRE I  /  T ( b .  4,  8 )  ,  tO ( 4 . 8 ) • TENS ( 8) ,XNU(  8) ,  RO ( 8  I , E PS T ( 8 ) , 

.  MTC(8),NIC(b),MlD(B) 

fi  1  HI  NS  I  ON  IX(NUMEL,5)*MTAG(  NUHFL  )  » JNT ( NOME L ) » R A  T  101  NUMF  Lit 
.  Et  IAINUHL  L  ) «  S 101  (NUMEL*0)  ,  S 1  GNM ( NOME L  ) 

JCK  =  1 
SRR-SR1 
1  JJ*U 

IX I  200  N=i,NUMCL 
IMRAllOINI.NI  .SR)  00  TIJ  2OC 
SR3=RAT 10IN I 
H.TAl=blTA(N) 

MTAOI-MTAOl  N) 

JNT I  =  JN  T ( N ) 

SK=SR*SR 1 
MTYPE=IX(N,5) 

S I G  T=  T  E  NS  I M I Y  P  E  ) 

I  F  I  1 X  ( N  *  2  )  .  L w  .  I  X  (  N ,  3 )  )  00  If)  200 
80  CONTINUE 

HU  100  1=1,3 

100  SIGH  l=SRK*SIol  IN,  I+3M-S1GI  IN,  1  ) 

CC=(S1G<1)*SIC<2)  1/2.0 
IG=(S1G(1I-SIC(2) 1/2.0 
CR=  SOP  T(IjB**2*S)0(  31**2) 

3 1 0 (4 1 =CC*C  R 
S  )C  (5)  =  CC-CK 
S 1 G 1 6  )  =  0  •  O 

IH  (Brt.IC.O.)  .ANO.ISIGl  2)  .EO.O.)  )  GO  111  1M, 

S  1G  (G  )  =2tl .(  4d»  AT  AN2  (  S 1 G  (  3 )  ,  88  ) 

1  GO  CUNT  1  NUt. 

CALL  GRIITH  (MTAG, JNT, RATH), Bfc f A,S Iol ,S IONM) 

IK  IJJ.C1.G)  GCl  TC  300 
SI  GDI =SI GN— 3 1 GT 
SRR  =  SR 

)F ( SRR . LI . TGL I  )  SPK  =  TUL I 
1  JJ  =  1 

go  ro  so 
200  CONTINUE 
300  CONTINUE 

IP  (IX(N,2)  .EG.  I X  ( N  ,  3 ) )  GO  TO  400 
R  AT  10  ( N)  =SP. 
l’LTA(N)  =  t. I  T A  I 


,N  , 
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I  NfK  6  1 
I NTR  52 
I NTR  53 
INTR  54 
INTR  55 
INTR  56 
1  NTR  57 
INTR  66 
INTR  59 
INTR  60 
INTR  61 
INTR  62 
INTR  63 
'NTR  64 
INTR  65 
INTR  66 
INTR  67 
INTR  66 
INTP  64 
INTR  70 
INTR  71 
INTR  72 
INTR  73 
INTP  74 
INTR  75 
INTR  76 
INTR  77 


M1AG(NI*MTAGI 
JN I ( N  »  =  JN  T I 
S I GD J  =  S I GN-S I G  T 

IF  (  (  ABSIS1GD1I.LL.  IOL  I.UK.I  ABS C S IGDJ I .LF . TOL  II  GCl  TO  350 
SKMSR1*SIGDJ-SR*SICD1  I  /(  SIGDJ-SIGD1 1 
GO  TU  400 
350  CONTINUE 

1 F I  AbSISIGDII.GT.TOL  I  GO  TO  370 
SR  =  Sk  1 
GO  TO  390 

370  1 F (  ABS ( S IGDJ I .GT .TOL  I  GO  TO  400 
SR  =  SRR 

390  CONTINUE 
400  CONTINUt 

1FISK.GE.0.49  I  SR=1.0 

1FISR.LT. 0.0G1I  SK=0.00  1 

IF ( SR. E 0.1.0)  KCHECK=G 

TULJr.0.01 

DA*SR-SRR 

DB=SR-SR1 

IF( (ABS(DA) .1  E.1ULJI.0R.I ABS(DB) .LE.TOLJII  KCHECK=0 

WR I TE ( 6 *  1000 i  SRI i SRR » SR 

RETURN 

1000  FORMAT! //•  OLD  SR=*tG14.4t*  NFW  SR=*.G14.4,  10X*'  INTFRPOLATFD  SR= 
♦  SG14.4//I 
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Mini  I  SUL*  Rt'O  TINf  W.hlFY(A,b,NHj,MI*ANti,N&ANIi,N,UI 

Mlllil  t  c 

MODI  3  C 

MOD  1  A  DIMENSION  LCV  0»,A(NU;,NI  ANl>» 

MIDI  6  r>U  2i>l  M=.  ,M'  ANIi 

MODI  6  K^N-M+l 

MODI  1  1  F  (  K  1  i' j'j,i  1  .■  »  2  30 

Mini  fc  230  U(KI*«<K)-A<K,M)*U 

MUM  V  A(K,M1=0.0 

MUUl  10  23t>  K-N  +  M-l 

MODI  11  1 F ( NEO-K I  ?Mi,£AC,i40 

MUM  12  c AO  BIK I - b l Kl -A <N,M l*U 

MCDI  13  A(N,h'*0.t 

MOM  14  2 SO  CCN11NUL 

MOM  lt>  AIN, 11  =  1. 0 

MOO  I  16  b(NI=U 

MOO I  17  FFIURN 

MUM  in  f  NO 


1 

SUBKOuriNt  HANSlL  (  H  ,  A  ,  MM  ,NbANI  ,  NUMBLK ,  NLI  ,  JA  ) 

HANS 

2 

L 

HANS 

3 

L 

l  ANS 

4 

HlMfNSK  is  H  (NLL  )  ,  A  (  NLL  ,  NS  ANU  ) 

HANS 

s 

NN=NLl / i 

HANS 

( 

NLcNN+l 

1 1 A  N  S 

7 

NHcNNvNN 

l  ANS 

b 

NncC 

1  ANS 

9 

NbK*  1 

hANS 

10 

F 1  NO ( 1 •  1  ) 

l  ANS 

1 1 

GO  10  150 

bANS 

12 

100 

Nb=Nb  + 1 

t  ANS 

13 

no  125  N=1,NN 

1  ANS 

14 

NM=NN+N 

HANS 

IS 

B(N)=B(NM) 

bANS 

16 

H(NM)=O.G 

HANS 

17 

HU  12  !■  M=1,MM 

HANS 

lb 

A(N,M)=A(NM,M) 

l  ANS 

IV 

125 

A(NM,M)=0.0 

b  ANS 

2  0 

IF  (NUMBLK— Nb  )  150,2L0,1S( 

HANS 

1*1 

150 

RfcAO  (l»NbK)  (B(N) , (A(N,M) ,M=1 ,MM) ,N=NL,NH) 

HANS 

22 

NNK«NBK 

bANS 

23 

NbK=NHK ♦  JA 

BANS 

2*< 

IF  (NB)  200,110,260 

HANS 

200 

00  300  N- 1 ,NN 

IANS 

2  6 

IF  (A(N,11)  22S,3(.  C.22S 

HANS 

21 

225 

B(N)=b(N)/ACN, 1 ) 

bANS 

20 

00  275  L*?,MM 

H  AN  S 

2  V 

IF  (AIN, LI)  2  30 , 2  7S , 23C 

HANS 

2o 

230 

C=A(N,L)/A(N, 1) 

bANS 

Jl 

I =N+L— 1 

HANS 

'12 

JrO 

HANS 

j:i 

no  25 0  Ks  L » MM 

HANS 

jv 

JAJ  +  1 

bANS 

35 

2  SO 

A  <  1  ,  J ) =A (  1  , J) -0*A (N,K ) 

bANS 

36 

HI  1  )  =  l  (  1  )-A(N,L)*l  IN) 

bANS 

37 

A(N,L)=t 

HANS 

?e 

2  75 

CONI 1NUL 

HANS 

3V 

300 

CUNT1NUF 

bANS 

40 

NF  K=NNK— JA 

HANS 

41 

1 F ( NUMBLK • F  0 . Nl  1  OU  TU  4lG 

l  ANS 

4  2 

WRKt  (l’NHK)  (b(N) ,  (  A(N,M)  ,M=/,MM)  ,N=1  ,NN) 

bANS 

A3 

NbK=NNK ♦  J  A 

HANS 

44 

GO  TO  100 

LANS 

4S 

410 

HO  450  M=1,NN 

HANS 

46 

N  =  NN+ 1  — M 

L  ANS 

47 

00  42  S  K  =  2 , MM 

HANS 

4b 

LaN+K-1 

HANS 

49 

425 

b  (  N  )  =  b  (  N  )  —  A  (  N  ,K  )  *1  (  L  ) 

HANS 

SO 

NM=N*NN 

126 


wsr 


ornsw'mMi 


HANS 

51 

lINWMhlb) 

LANS 

52  AbO 

A(NH,NL l«hlN) 

HANS 

5o 

NI=Mll-l 

1  ANS 

5  A 

IMNB.LU.01  OL  TO  500 

BANS 

55 

Hb/.O  (l'NLKl  (L(N1  t  (  A  (  Nt  H )  ,  N  -  1  »NN) 

HANS 

56 

NBMNBK-JA 

BANS 

57 

O'.)  TU  *.10 

bANS 

56  '  OU 

MO 

1  ANS 

5<y 

I'Ll  600  NB  =  1  »NUMbLK 

l  ANS 

60 

DO  600  N  =  1 *NN 

LANS 

61 

NM=N*NN 

BANS 

62 

K  =  K  +  1 

t  ANS 

63  600 

b(M«A(NB,Nb) 

BANS 

6h 

Rl TORN 

bANS 

65  C 

LANS 

66 

t  NO 
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